ROTOR® 



THE Q3®a JOURNAL 




No.27 



AUGUST 



$2.00 



PLUG IN AND GO! 

Instant Video 

The only video board that works directly with the AIM or SYM Monitor, Editor, 
BASIC and Assembler. Simply connect to your system with our cable 
assembly, initialize the ASK software, (available in EPROM) and all output 
will appear on the monitor. It is very easy to use with most KIM programs. 




VIDEO PLUS™....$245 
Cable Assembly. ...$15 



ASK EPROM....$45 
See special offer below. 



Total Expansion 

Many companies can sell you a RAM board! 

Many companies can sell you an EPROM board! 

Many companies can sell you an EPROM Programmer! 

Many companies can sell you a Prototyping board! 

Many companies can sell you an I/O board! 

Only The COMPUTERIST® offers all of these features on one high 
quality board for less than others charge for a plain RAM board! Direct con- 
nection to your AIM, SYM, or KIM via our Cable Assembly. 

DRAM PLUS™ With 16K RAM $295 With 32K RAM $395 

Price includes everything except EPROMs. 
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'Special Offer Below" 

Mention MICRO, The 6502 Journal, when ordering a Cable Assembly with a VIDEO PLUS or 
DRAM PLUS and you will receive the Cable Assembly for only $5, a savings of $10 off the 
regular price. Offer expires October 31,1980. 

Interface/Experiment 

The AIM/SYM/KIM I/O Board provides connections for power, tty, cassettes, 
and includes relays to drive two cassettes for your system. And, as discussed 
in 'Programming and Interfacing the 6502, with Experiments' by Marvin L. 
DeJong, contains switches and LEDs to perform the experiments. 

ASK l/O™....$50 Assembled and Tested 






Write for your Free 1980 Catalog which 
describes these and our other products 
for the AIM, SYM, AND KIM, in great 
detail. 

Dealer Inquires invited. 








Shipping and Handling 
Prices for U.S. and Canada only, 
other countries 10% higher. 
Prices do not Include shipping and handl- 
ing. U.S. S3/board; Canada $6/board; other 
write for rates. 
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Southeastern Software 



DATA CAPTURE 3.0 

Is DATA CAPTURE just another smart terminal program for your Apple II® or 
Apple II Plus®? 

NO. It is a GENIUS TERMINAL PROGRAM and is designed to be used with the 
Micromodem II®. 

Tired of watching data and programs scroll off the screen forever? Then DATA 
CAPTURE is the program for you. 

• ANYTHING that appears on the screen of your Apple II can be captured. 
Any program or data. 

• You can then save what you have captured to disk, dump it to your printer 
or even do simple editing with DATA CAPTURE. 

• You can use DATA CAPTURE to compose text offline for later transmis- 
sion to another computer. Think of the timeshare charges this will save you. 

• Use DATA CAPTURE with the Dan Paymar Lower Case Adapter and you 
can enter lower case from the keyboard for transmission to another computer 
or capture both upper and lower case. 

• A program is also included to convert your programs to text files for 
transmission using DATA CAPTURE. 

• You receive two versions of the program. One is for upper case only and 
one for both upper and lower case use with the above adapter. 

DATA CAPTURE will save you money if you are using a timesharing system 
because you can compose messages offline for later transmission. You can also 
quickly capture data for later reading, printing or editing. Requires DISK II®, 
APPLESOFT II®. 

Price $29.95 

If your local dealer does not have DATA CAPTURE then order directly. We ship 
DATA CAPTURE within 3 working days of receipt of order and welcome your 
personal check. We also accept Visa and Master Charge. Add $64.95 if you would 
also like to order the Dan Paymar Lower Case Adapter at the same time. 

Ask for a catalog of our software. 

* Apple II, Apple II Plus, Disk II and APPLESOFT II are trademarks of Apple Computer Company. 

* Micromodem II is a trademark of D.C Hayes Associates, Inc. 

SOUTHEASTERN SOFTWARE 

7270 Culpepper Drive 

New Orleans, LA 701 26 

504/246-8438 504/246-7937 
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ENGINEERED SPECIFICALLY FOR 
THESYM-1 MICROCOMPUTER 

• Easy Access for 
Adjustments 

• Room for Expansion 

• Protects Vital Components 
EASILY ASSEMBLED 

• Absolutely No 
Alteration of SYM-1 Required 

• All Fasteners Provided 

• Goes Together in Minutes 

ATTRACTIVE FUNCTIONAL PACKAGE 

• Professional Appearance 

• Popular "Data Blue" Color 

• Improves Man/Machine Interface 



MADE OF HIGH IMPACT STRENGTH 
THERMOFORMED PLASTIC 

• KydexlOO* 

• Durable 

• Molded-ln Color 

• Non-Conductive 
AVAILABLE FROM STOCK 

• Allow Two to Three Weeks for 
Processing and Delivery 

• No COD's Please 

• Dealer Inquiries Invited 



TO ORDER: 1 . Fill in this Coupon (Print or Type Please) 
2. Attach Check or Money Order and Mail to: 



NAME _ 
STREET 
CITY 



STATE 



ZIP 



enclosures 
group 

771 bush street 

san francisco, California 94108 



.SSE1-1(S) 



Please Ship Prepaid 

@ $36.75 each 
California Residents Please Pay 

$39.14 (Includes Sales Tax) 
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Expand with the best 

FOR GRAPHICS... It's MIPLOT, 

the Intelligent plotter 



Designed for straight forward Interface to 
any microcomputer that outputs the ASCII 
code, MIPLOT can even be used by operators 
with no plotter experience. 

. Incorporates pre-programmed "intelligent" 

(Unctions required for producing graphs and 

drawings 
. Solid and broken line types can be specified 
. Rullt in character generator for letters, numbers 

and symbols 
. Characters can be enlarged and rotated to four 

orientations 
. Special printer mode outputs character data as-ls 
. Uses commonly available hard fiber-tip pens 
. Maximum plot speed approximately 2 inches per 

second 
. Built In self-test mode 

Only $1,200 

at Systems Formulate Corporation 



FOR CHARACTER GENERATION.. .It's the new 

HAL PCG 6500 

Prograxnmable Character Generator 

At last, available exclusively at Systems 
Formulate Corporation Is the HAL PCG 6500, 
a programmable character generator for 
your PET. With the PCG 6600, you can 
program 64 of your own characters into the 
system. Other features: 



MIPLOT ly Watanate (lorpomuon 



8 /. 



Only $200 



at Systems Formulate Corporation 



Hum in GB2 style sound amplifier 
Interface to PKTA'HM with 34 pin ROMS 
User program not, required for displaying 
characters (only for programming them l 
Fully Independent of user memory 
All software needed to write programs using 
programmed characters included 



FOR MORE MEMORY... 

Whether for Apple, TRS-80, PET or Sorcere, 
you'll like the reliability and price on this 
16K Dynamic RAM Ceramic Package by 
Fujitsu. 

Only $80 

at Systems Formulate Corporation 

•For more Information or to order by phone: (416) 326-9100 

Whatever your system or eyBtem expansion needs, give Systems Formulate a call. We will be happy to send 

along more information to you or take your phone order. We honor Master Charge. Visa or will ship COD. 

Store Hours; Monday-Saturday, 10-7, Sunday 12-6 



Q\j[) systgms formulate corporation 

\. J 39 Town & Country Village • Palo Alto, California 94301 



Uses and Abuses of the 6502 

When MICRO started publication In 1977, the 6502 
world was very different from what it is today. At that time 
you could choose from an OSI board, a KIM-1, or an offer- 
ing from some small company, many of which are no 
longer around. Or, you could get in line for one of those 
brand new systems: the Apple or the PET, which were just 
being released in limited quantities. Or, you could build a 
system from scratch. Then, once you had your 6502 based 
system, you could start hunting for support! It was not 
easy to find support for the 6502 back in 1977. You might 
have found an article relating to the 6502 in every other 
issue of Byte or Kilobaud. There were very few software 
packages or peripherals available. In every way, the 6502 
enthusiast In 1977 was a true pioneer. 

Since then, of course, almost everything has changed. 
The introduction of the Apple and PET brought the 6502 
into the spotlight and opened the 6502 world to a new 
wave of settlers. Instead of a few thousand 6502-based 
systems in existance, the numbers rapidly grew to the 
hundred thousands. The major computer magazines 
started serious coverage of the 6502, and a number of 
specialized magazines and newsletters covering just the 
Apple, PET, or other single system emerged. The amount 
of secondary support in the form of software, books, 
peripherals, and the like, expanded very rapidly. 

While this pattern of growth has been generally 
positive, there have been some drawbacks. The early 6502 
owners were generally knowledgeable about computers 
and/or electronics and were capable of determining the 
worth of the various limited offerings. Many of the new 
users that have been attracted by the Apple and PET com- 
puters are relative novices, and with the vast numbers of 
competing products being offered, many are not in a posi- 
tion to judge the merits of the products. Unfortunately, 
not all of the products available are worthwhile. With the 
growth of the 6502 market, elements have been introduc- 
ed that are much more interested in making the 'fast 
buck' than in supplying a quality product at a reasonable 
price. This is probably no more true in the 6502 market 
than in the microcomputer market in general. 
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The problem would go away completely if there were 
some way to have accurate, unbiased, complete evalua- 
tions about each product. The purchaser obviously can 
not rely solely on advertisements, product an- 
nouncements, or product literature produced by the 
manufacturer. Independent reviews are probably the best 
method for getting accurate information out, but a truly 
independent review is very difficult to obtain. Many highly 
qualified authors who write about the 6502 are so involved 
In the 6502 world that they have built-in biases, some ob- 
vious (as when the individual has his own company) and 
some less obvious (where a special relationship may have 
naturally evolved between an author and a producer). Un- 
solicited reviews tend to be biased since they usually 
stem from one of two reasons: the author loves a product 
or the author hates a product. It is difficult to get a 
qualified evaluator together with a product that should be 
evaluated. The solution which MICRO has implemented is 
the new feature which appears for the first time in this 
issue, the MICROScope. 

In November 1979 we requested that readers sign-up to 
do reviews for MICRO. Several hundred readers respond- 
ed and we now have a good pool of reviewers to choose 
from. In December 1979 we printed a form on which 
manufacturers could request that their products be 
reviewed. Since then we have generated the necessary 
paperwork, contacted various reviewers and manufac- 
turers, and have gotten some reviews underway. We will 
present the results of the reviews in a standard format to 
make the information easy to use. We have taken every 
step that we could think of to insure the accuracy and 
value of the review. Please read the first review which ap- 
pears on page 31 of this issue, and also read the Review's 
Responsibility information which appears on page 78. We 
welcome your response to this project. Is this type of 
review is worthwhile to you? What particular products 
would you like to see reviewed? Would you like to be a 
reviewer? Do you have a product of your own that you 
would like reviewed? Please let us hear from you on this 
important project. Send correspondence to: 
MICROScope, P.O. Box 6502, Chelmsford, MA 01824 
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While some people call this the 
Atomic Age, and others refer to it as 
the Space Age, we all know that it is 
actually the Computer Age. No one 
will deny the importance of nuclear 
energy and space exploration and 
technology. Their impact on our 
lives is currently, however, very 
insignificant in relation to the com- 
puter. 

There is, undeniably, a common 
interest to computers and space. 
They have both been used as cor- 
nerstones for science fiction, and 
there are numerous space oriented 
computer games: Star Trek, Space 
Ace, Lunar Lander, dating back at 
least to the space war game on the 
PDP-1. 



The cover depicts the computer 
on a distant planet. While it will 
probably be some time before an 
Apple, PET, or other 6502 based 
microcomputer system lands in 
such a distant world, there are 
some interesting space related 
uses for the microcomputer 
systems today. Two articles in this 
month's issue deal with space. One 
provides a program for generating 
the set of parameters required for 
tracking satellites; the other 
generates a map of the solar 
system for specified planets over 
specified periods of time. 
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Apple Software 

GHOST TOWN 
ADVENTURE 

Scott Adams' newest' Thirteen 
treasures hidden in a ghost town 
Be ready (or a lot of surprises and 
real ghosts 

Cassette/24K/M $14 95 

SUPER INVASION 

The best invaders game available 
on home computers' Sensational 
Software. 

Cassette/32K/M $19.95 

WINDFALL 

Put yourselt in charge of Engulf 
Oil Try to keep consumer prices 
down and still maintain a profit 
Edu-Ware 

Cassette/32K/A $14 95 

DiSk/32K/A $19 95 

VISICALC 

Calculate sales projections, 
income taxes, personal budget, 
cost estimates, even balance 
your checkbook without a pencil 
and paper' Personal Software 
Disk/32K/A $150 00 

ANDROID NIM 

Wonderfully animated version of 
the popular game called Nim 

Disk/24K/M $17 95 



MAGIC PAINTBRUSH 

Incredible graphics are easy with 
this program Use your game 
paddles to indicate two points on 
the screen, press a button to draw 
a line between them Use fill 
mode to till in areas of the screen 
with color, paintbrush mode 
(nine different size brushes! to 
paint on the screen Save your 
drawings or shape tables as B 
dies includes Slot Machine and 
Applesoft Invaders to show what 
you can do MP Software 

Disk/32K/A ROM $29 95 



SARGON II 

The chess program that beat all 
the others Faster response time 
and even a hint mode' Hayden 

Cassette/24K/M $29.95 

Disk/48K7M $34 95 

Also available Sargon I 
Cassette/24K/M $19 95 

THREE MILE ISLAND 

Can you prevent the radiation 
from leaking into the air while still 
making a profit? Only you can tell 
in this nuclear holocaust simula- 
tion MUSE 

Oisk/48K/l $39 95 

BEST OF MUSE 

Tank Attack. Escape, Maze 
Game. Music Box. and Side 
Shows, all on one disk 

Disk/16K/I $39 95 



MICROSOFT 
ADVENTURE 

The people who wrote BASIC for 
all the personal computers, now 
bring you aversion of the original 
Adventure You no longer need a 
PDP-10 tor the power of the 
original game' 

DiSk/32K/M $29 95 

BASEBALL 

High resolution sports excite- 
ment as you control players 
Balls and strikes tallied as you 
control pitches and swings 
MUSE 

Cassette/ 1 6K/A-P.OM .. . $14 95 

Pet Software 

RESCUE AT RIGEL 

Search the moon base and 
rescue Delilah Rookh from the 
High Tollah. (Automated Simu- 
lations) 
24K Pet Tape $19.95 

DATESTONES OF RYN 

Cross swords with a band of 
dastardly robbers. Real time 
adventure with graphics. (Auto- 
mated Simulations) 
16K Pet Tape $14.95 

STARFLEET ORION 

Command a starfleet! 2 player 
game system includes rule book, 
battle manual, control sheets, 2 
programs, 22 space ship types 
and 12 play tested scenarios. 
8K Pet Tape $19.95 



INVASION ORION 

Similar to Starfleet Orion except 

single player only, different 

scenarios 

16K and 32K Pet versions on one 

tape $19.95 

GAME PLAYING WITH 
BASIC TAPE 1, TAPE 2, 
AND TAPE 3 

by Hayden $9.95 each 



SoftSlde Magazine the best 
software magazine for the Apple. 
TRS-80. and Atari computers 
$l8/year (12 issues) 

SoftSlde: Apple programs 

on caitatt* $39 00 for 6 months 
on diskette $69 00 for 6 months 

Introductory Special! 

Until Nov 1 Magazine $15/yr 
With cassette $6995/yr With 
disk $129 95/yr 

This is only a very small 
sample of our product 
line. For a complete selec- 
tion, send 57 lor our cata- 
log of hardware, software 
and publications and re- 
ceive a $2 credit toward 
your first order. 
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I — Integer BASIC 
M — Machine Language 
A — Applesoft 
ROM - Applesoft card or 
Apple II Plus only 



■ mMS 90mWwNm9rG EXCmKMMfjC 6 SOUTH ST., MILFORD, NH 03055 

To order: Call Toil-Free 1-800-258-1790 (m nh can (603)673-si44) 

The Software ttchinge £ HirdSidt (Div ol RoblUillt 4 Som. tnterpmes. Inc ). SoftSlde Publicilions 



Data Statements Revisited 



The power of BASIC can be greatly enhanced by the 
ability of a program to update program statements. This 
article discusses the fundamentals of the technique and 
presents detailed program examples. 



Virginia Lee Brady 

6 Reldas Ct. Apt. L 

Cockeysville, MD 21030 



Since I began working with data 
statements, I have found that just 
poking them into memory is fre- 
quently not enough. In many ap- 
plications it is necessary to update 
the actual statements in memory so 
that they can be used in subsequent 
runs of the program. This became 
especially evident when I was work- 
ing on a directory program using 
linked lists. I had worked out a pro- 
gram to handle insertions and dele- 
tions for string arrays (i.e.-changing 
the "links"), but these revisions 
were only good for the duration of 
the run of the program; afterwards, 
the data statements were still in 
their original form. In order for the 
program to be truly useful, I soon 
found that I had to change the 
physical lines in memory so that 
these new lines could be saved 
along with the program, and when 
the program was rerun, the arrays 
would contain the corrected strings 
and links. While I specifically 
developed these routines for use in 
a linked list application, the pro- 
cedures involved in changing pro- 
gram lines that can be used in other 
ways. 

Although this is not a tutorial on 
linked lists per se, I should mention 
some of the concepts involved to 
show how they can be implemented 
in Applesoft. The program basically 
uses each individual data line as an 
atom or record within a specific 
"file" (the directory). The fields are 
those elements separated by com- 
mas. I set up my data statements to 
look similar to what is found in 
Figure 1. 

Line 



Thus the directory is a two- 
dimensional array whose fields in- 
clude last name, first name, and ad- 
dress. There is also a seperate 
numeric array, NXT%(I), that is used 
to hold the links to the next greater 
entry. If NXT%(I) equals zero, the 
RECORD(l),is the greatest one on 
the list, although not necessarily 
the last one. There is also a line 
defining two more variables: 

20 X% =003: HEAD% =1 

HEAD% is the first or lowest record 
in the list; alphabetically, Aardvark 
comes before any of the other 
names. X% is the total number of 
records in the file. A new entry 
would be placed at position X% + 1 . 
Since this is the update position, it 
is referred to as UP. 

It should be noted, then, that for 
any RECORD(I), there are two other 
records that are in some way 
"previous" to it: 

1) PREV(ious) is a value which is set 
up by the linked list algorithm and 
indicates the next "smaller" record. 

2) RECORD(I-I) is the record im- 
mediately before RECORD(I), both in 
the string array and sequentially in 
memory. 

The alphabetical integrity of the 
list is maintained by the links. This 
is similar to "follow-the-dots" in 
which one goes from 1 to 2 to 3..., 
wherever the dots occur. When a 
new record is entered, it is placed at 
the end of the list at the update posi- 
tion, and the two links are changed. 



The next smallest record's link field, 
NXT%(PREV), is set to point to the 
new entry, RECORD (UP), and the 
new record's link points to its suc- 
cessor, which is the entry that 
NXT%(PREV) used to point to. In the 
program example, when Collins is 
added, PREV is assigned a value of 
two because RECORD(2), Brady, is 
the next smallest record. Then, in 
line 525, NXT%(4) is assigned the 
value of NXT%(2), which points to 
Zebra, and NXT%(2) is set to the up- 
date position. This way, when the 
links are followed, the chain goes 
from 1 to 2 to 4 to 3, so that the list 
is kept in alphabetical order. 
Similarly, if a deletion occurs for 
Brady, RECORD(2), PREV is assign- 
ed a value of one, the next smallest 
record. In line 630 NXT%(1) is set to 
equal NXT%(2) so that the chain 
goes form 1 to 4 to 3, completely 
skipping past Brady. (If you've never 
used linked lists before, try follow- 
ing this by hand to get an idea of 
how it works.) 

The actual steps involved in 
calculating the values of NXT%(I), 
HEAD%, AND PREV are beyond the 
scope of this article. My purpose is 
to explain how to get the informa- 
tion into the Applesoft program 
once a suitable algorithm has been 
developed by the user. It is assumed 
that the user is familiar with the 
idea of poking data lines into a pro- 
gram so that these updates can be 
performed under program control, 
rather than by hand on the user's 
part. (See Micro 19:44) 



1 
(2) 
(3) 



10001 DATA AARDVARK, 

10002 DATA BRADY, 

10003 DATA ZEBRA, 



DIR-S(I.l) Dma.2) DIR3CT.3) NXI^(I) 



SAM, 
VIRGINIA, 
TED, 
Figure 1 



ANYWHERE, 002 
SALISBURY, 003 
CITY ZOO, 000 
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Reading 



During the reading in of a data 
line, several events take place 
beneath the surface of Applesoft. 
Locations $7D.7E (125-126) are set 
to the address of the 00 byte which 
indicates the end of a particular 
statement read in. This pointer acts 
as a sort of "place holder" in that it 
always points to the last data state- 
ment that was read in. When Ap- 
plesoft next encounters a READ 
statement, it begins its search from 
this address and the pointer is up- 
dated to the next "end -of- record" 
mark. These locations can be used 
to the programmer's advantage if 
they are saved in a data pointer ar- 
ray, so that after all of the data has 
been read in, each element in the 
DP(I) array points to the end-of- 
record mark for each corresponding 
RECORD(I). Using these locations it 
is then possible to calculate 
backwards in order to reference a 
specific part of a data line. If 
NXT%(I) is a three byte link field 
placed at the end of the line (the 
most convenient location), then 
DP(l)-3 is the start of that field and 
DP(l)-4 is its preceding comma. Con- 
versely, DP(I-1) is the end of the line 
immediately preceding RECORD(I), 
and from there you can calculate 
the beginning of line I. 

Another pair of pointers set up 
during the read are $7B.7C (123-124). 
These contain the line numbers of 
the last data line which was read in. 
Calculating Line = PEEK(123) 
+ PEEK(124)*256 immediately after 
the main read loops will mean that 
LINE is always equal to the highest 
numbered data line. Everytime a 
new line is poked into place, this 
value needs to be incremented so 
that each data line has a unique line 
number. 

Writing 

To understand how a line that is 
physically stored in RAM can be 
manipulated, it is necessary to 
review the anatomy of the line from 
the interpretter's point of view: 

(line 1) 10003 DATA ZEBRA, TED, CI- 
TY ZOO, 000 

(pppp = A; II II = B;83 = C;(ascll's 
1C 30 30 30 = O; 00 = D.) 

DP(l-1)pointer line "data" DP(1-4) 
DP(I) 



:run 

the directory j 

aardvark sam 

anywhere 

brady virginia 

salisbury 

zebra ted 

CITY ZOO 

NEXT WE WILL SHOW THE LINES THAT HAVE 

BEEN CHANGED. ANY KEY TO CONTINUE 
20 X% = 03:HEAD% = 1 

10001 DATA AARDVARK. SAM . ANYWHERE 
,002 

10002 DATA BRADY . VIRGINIA .SALISB 
URY.003 

10 003 DATA ZEE'.RA-. TED .CITY ZOO .00 


ANY KEY TO CONTINUE 

INSERT 
WE WILL NOW INSERT i 
COLLINS . BILL. . SALISBURY 
THE DIRECTORY t 
AARDVARK SAM 
ANYWHERE 
BRADY VIRGINIA 
SALISBURY 
COLLINS BILL 
SALISBURY 
ZEBRA TED 
CITY ZOO 
NEXT WE WILL. SHOW THE LINES THAT HAVE 

BEEN CHANGED. ANY KEY TO CONTINUE 
20 X% = 00t:HEAD% = 1 
iOOOl DATA AARDVARK. SAM. ANYWHERE 

.002 
10 02 DATA BRADY. VIRGINIA. SALISB 

URY.001 
100 03 DATA ZEBRA. TED. CITY ZOO. 00 


iQOtM DATA COLLINS. BILL. SALIRBUR 

Y .003 

ANY KEY TO CONTINUE 

INSERT 
WE WILL NOW INSERT : 
MICRO . MAGAZINE . CHELMSFORD 
THE DIRECTORY t 
AARDVARK SAM 
ANYWHERE 
BRADY VIRGINIA 
SALISBURY 
COLLINS BILL. 
SALISBURY 
MICRO MAGAZINE 
CHELMSFORD 
ZEBRA TED 
CITY ZOO 



A. 2 bytes — pointer to next line of 
Basic (to next pointer) 

B. 2 bytes — hex equivalent of the 
line number 

C. 1 byte — "83" — token for 



"DATA" 

D. N bytes — ASCII equivalents of 
the program line 

E. 1 byte — "00" — indicates the 
end of the line 
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All of the information stored within 
the data statement is stored as 
ASCII codes, since at the time it is 
entered, Applesoft does not know 
whether it will be read into a string 
or numeric variable. Therefore even 
NXT%(I) is stored as an ASCII 
equivalent rather than a hex- 
adecimal equivalent of the value. 
Because of this, the value can be 
manipulated as a string [NXT$ ■ 
STR$(NXT%(I))] and poked into 
place to update the value of any 
NXT%(I). 

In my set up, this link field is ex- 
actly three characters long, allow- 
ing up to 1000 combinations of 
numbers. The leading zeros are us- 
ed to allow room for expanding to a 
larger number, say, from nine to ten. 
There are two ways to set up NXT% 
with the leading zeros: 

1) It can be done as a loop: 

100 IF LEN(NXT$)< 3 THEN NXT$ 
= "0" +NXY$: GOTO 100 

This limits NXT$ to a length of ex- 
actly three, but has a drawback in 
time. Whenever Applesoft en- 
counters a GOTO instruction, it 
starts at the smallest line number 
and executes a sequential search 
for the specified line number. If the 
line is 100 the Applesoft mav have to 
search through up to 100 lines before 
it finds the right one. If the above in- 
struction causes Applesoft to loop 
twice, this is 200 lines it may have to 
search through and this takes time. 

2) A quicker way is with a sequence 
of instructions like: 

100 NXT$ = "00" + NXT$ (now length 
is 3,4,or 5) 

110 NXT$ = RIGHT$(NXT$,3) (now 
equals its own righthand side) 

Getting NXT$ into place for 
RECORD(UP) is easy; it is con- 
catenated to the record string and 
poked into place at the same time 
as the rest of the record. Changing 
the NXT% (PREV) is a bit more com- 
plex; it needs to replace the old 
NXT%(PREV) in memory as precise- 
ly as a piece of stone is replaced in 
a mosaic. Assuming that you have 
already set up a DP array, the this 
string fits into locations 
DP(PREV)-3, DP(PREV)-2, and 
DP(PREV)-1. This can be done in a 
loop, where DP = DP(PREV)-4, the 



NEXT WF. WILL SHOW THE LINES THAT HAVE 
BEEN CHANGED. ANY KEY TO CONTINUE 

20 x% = oos:head% ■ i 

10001 DATA AARDVARK, SAM -ANYWHERE 
.002 

10002 DATA BRADY t VIRGINIA »SALISB 
URY,0C4 

10 003 DATA ZEBRA. TED, CITY 700*0 


10 004 DATA COLLINS, BILL, SALISBUR 

Y ,005 

10 005 DATA MICRO, MAGAZINE, CHEI. MS 

FORD ,0 03 

ANY KEY TO CONTINUE 
NOW DELETING I 
BRADY 
VIRGINIA 
SALISBURY 
THE DIRECTORY '. 
AARDVARK SAM 
ANYWHERE 
COLLINS BILL 
SALISBURY 
MICRO MAGAZINE 
CHELMSFORD 
ZEBRA TED 
CITY ZOO 
NEXT WE WILL SHOW THE LINES THAT HAVE 

BEEN CHANGED. ANY KEY TO CONTINUE 
20 XX a OOStHEAC"/, = 1 
100 01 DATA AARDVARK, SAM, ANYWHERE 

,0 0't 
10002 DATA BRADY, VIRGINIA, SALISB 

URY»004 
10 03 DATA ZERRA, TED, CITY ZOO, 



10004 DATA COLLINS, BILL, SALISBUR 

Y ,0 05 

10005 DATA MICRO, MAGAZINE, CHELMS 
FORD ,003 

ANY KEY TO CONTINUE 
DLT.ST 

if] LOMEM: 9999 
20 XX = 0C3tHEAD% = 1 

22 REM 

DO NOT CHANGE ANYTHING ABOVE 
THIS WITHOUT RECALCULATING 

LINE 72 ! 

25 DIM DIR*(iCu,4),DP(i0C)»NXT%( 

100) 

26 GOTO 10 00 

30 RESTORE *■ FOR 1=1 TO X%! FOR 

J = 1 TO 3! READ DIR*<I»J)J NEXT 
J READ NXT%(I)JDP(I) = PEEK 
(125) + PEEK (126) * 256: NEXT 

35 LINE = PEEK (123) + PEEK (12 

4) x 256*. UP = It RETURN 

tO REM CHANGE NXTX(PREV) 

HZ NXT* = "00- + SIR* (NXT%(PREV 
)>$NXT* = RIGHT* (NX |"S,3) 

44 DP = DP(PREV) - 4t FOR I = 1 TO 

3? POKE DP + I, ASC ( MID* ( 



position of the comma, and then 
poking then new information into 
place. By using a simple NXT$ 
variable and changing the value as 
needed, the same subroutine can be 
used for a RECORD(I). This is shown 
in lines 42-44. 

Using a variable such as X% as 
the limit for a FOR/NEXT loop is 
simpler and faster than using 
trailers. It eliminates the need for 
statements such as "IF 
DIR$(I,1) = ""THEN...", "I = 1 + 1", 
and "GOTO...". It also does away 
with the problems associated with 
trailers-writing over the old trailers 
and setting up a new set of trailers 
every time a record is added. 
Because the GOTO is avoided, the 
need for repeated searches for a 
line is also eliminated. Since X% is 
a variable, its value is easy to set 
with a statement of "X% =X%»1", 
but the value is lost when the 
variable table is cleared by a RUN. 
The only way to retain this value is 
to make the line defining X% a per- 
manent part of the program and 
then updating it so that when the • 
program is saved, the revised line is 
also saved and can be interpretted 
again when the program is run the 
next time. 

The memory locations containing 
the "003" in line 20 bear a specific 
(offset) relationship to the begin- 
ning of the program. In ROM Ap- 
plesoft, the starting position is $801 
or 2049. In either RAM or ROM Ap- 
plesoft, the starting position is held 
in $67.68. If a variable is defined as 
START= PEEK(103) + PEEK 
(104)*256, then START plus the 
predefined offset value is the loca- 
tion of the i first zero. Determining 
this offset value is fairly straight 
foreward — go into the monitor and 
look for the "003." Then count how 
far it is from the beginning of the 
program to this location. What you 
are looking for is: 
(line) 20 X % =003 
(monitor) pp pp 14 00 58 25 DO 30 
30 33... 

This process can be simplified by 
placing this line as near the begin- 
ning of the program as possible 
after adjusting LOMEM, and while 
there are few lines following it. If 
you are reasonably sure of the ap- 
proximate offset value, you can also 
try this in an immediate mode: 



(NO / 



■- RICHTs 
POKE 



SPC( 1) 
DIPS < IN 



If INDEX 



NXT*»I)>J NEXT i RETURN 
60 REM CALC HI/L.0 BYTES 
65 HI. = INT (NO / 256) tLO = 

256 - HI) xc 2t6: RETURN 
70 REM CHANGING X% 
72 X* = "00" + STR* <X7.)JXs 

(XS.3): FOR 1 = 1 TO 3} 

STAR! + 16 + It ASC < MID? ( 

X$f'D): NEXT i RETURN 
80 LIST 20 J LIST 1000 3, - iOOiOS PRINT 

"ANY KEY TO CONTINUE": HTAB 

20 t GET R*t RETURN 
10 REM PRINT ROUTINE 
110 INDEX = HEADX 
120 HOME t PRINT "THE DIRECTORY 

: * t PRINT : PRINT 
130 PRINT DIR$ < INDEX* 1)} 

DIR$ ( INDEX f 2 ) : PRINT 

DEX.3) 
135 PRINT 
1*0 INDEX = NXT%( INDEX) 

< > THEN 130 
150 PRINT "NEXT WE WILL SHOW THE 
LINES THAT HAVE BEEN CHAN 

GED. ANY KEY TO CONTINUE": HTA 

2Ct GET Rs: RETURN 

500 rem insert 

502 rem in a user program the 
value of prev would be 
supplied by the algorithm 

503 rem also beware of inserts 
that change the value of the 
variable ' head%' 

sgi rem or of an insert that 

would be the last one on the 

LIST ( ' C ' ) 
SlU HOME : PRINT TAB( 3.5)"INSER 

T". PRINT : PRINT 
520 PRINT "WE WILL NOW INSERT {" 

: PRINT NAME* 
525 NXTX<UP) = NXT%(PREV);NXT%(PR 

EV) = UP 

530 casus io 

535 NXT* = ■BO* + STR* (NXT%(UP) 
>VNXT* - RIGHT* (NXT*.3> 
CF LEN (NAME*) < 10 THEN NA 



540 

550 
560 

565 



GOTO 540 
+ NXT* 

line: gosub 



ME* = NAME? + " " 
NAMES <a NAME". + " » 
LINE = LINE + i:NO 

60 
PSN = PEEK (1/5) + PEEK (17 

6) * 256: POKE PSN.LOt POKE 





PSN + 1» Hi: PUKE PSN + 2.131 


570 


FOR 1=1 TO LEN (NAMES): POKE 




PSN +1+2; ASC ( MID* (NAM 




ESfl))*. NEXT : POKE PSN + I + 
2f C 
NO = PSN + I + 3t GOSUB 60 5 POKE 


575 




PSN - 2.L0: POKE PSN - l.Hi: 




POKE NOYCJ POKE NO + 1.0 


577 


NO = NO + 2", GOSUB 60 : POKE 1 




75.L0: POKE 176. HI 


580 


X% = X7. + i: GOSUB 70 


585 


GOSUB 30 


£90 


FOR T - 1 TO 1000: NEXT : RETURN 



S = 2049 

FOR I =0 TO 30; PRINT I, 

CHR$(PEEK(S + I)):NEXT 

This will generate a listing of: 



17 

18 

19 3 



In this example, the offset would be 
17, so poking would begin at START 
+ 16. Getting the value into the line 
is now handled the same as NXT$ 
was (see line 72). 

Some words of caution are in 
order at this point. Once the offset 
value of the X% line has been 
established, adding or deleting a 
single characterin a preceding line 
will cause X$ to be poked into the 
wrong place (and give you a very 
strange listing.) This can sometimes 
be remedied by typing "20" to erase 
the line and then type it over again. 
Similarly, if NXT$ is poked into the 
wrong place, it will cause problems 
such as overwriting its preceding 
comma or the succeding end-of-line 
mark. Remember that once the new 
lines are poked into memory, they 
are a permanent part of the program 
and are not cleared by a new run of 
the program. This means that if you 
manually delete a data line, you 
must also manually change the X%. 
If LINE is set to a constant, rather 
than to the last value in locations 
$7B.7C, then when the program is 
rerun, the same line numbers will be 
used over and over. (While this is an 
interesting effect, it quickly loses its 
appeal when you try to delete the 
third ocurrence line 10003.) Be 
forewarned that poking values into 
inappropriate places is a fast way to 
demolish a program and probably 
Applesoft. For this reason, I would 
advise you to save a copy of the pro- 
gram after you have typed it in and 
before you try to run it. That way if it 
bombs you can re-load it and find 
the error before running it again. 

Note that line 540 is not 
necessary to this version of the pro- 
gram; it merely assures that all data 
lines are the same length, and 
leaves room in case the line is later 
changed by the program. (An ap- 
plication not included in this pro- 
gram.) In fact, 540 is a relic from an 
earlier version of the program and 
could be replaced by a statement to 



concatenate NAMES to a long string 
of spaces and then truncating it to 
an appropriate length. This is left as 
an exercise to the reader. Line 80 is 
also unnecessary; it is included to 
list the various lines as they change, 
so that the user does not have to 
drop out of the program to examine 
the lines in question. 

The program listing incorporates 
these routines and those from 
"Data Statement Generator" and 
will produce an example of a linked 
list in Applesoft. Although the pro- 
gram has relatively few fields, the 
arrays could be expanded to ac- 
comodate any number of fields 
depending on the application. 



Calculating the values of HEAD%, 
PREV, and NXT%(I) are left to the 
user, as are the additions of 
subroutines for sorting, searching 
and inputting the various fields. 

There is a striking similarily bet- 
ween the way data statements are 
stored in RAM and the way Ap- 
plesoft text files are written to disk. 
The routines in this article could 
serve as a vehicle for learning about 
text files, and have an added advan- 
tage in that their results are easier 
to examine. Actually this whole 
directory could have been handled 
with a text file on a disk, but using 
this routine and tape is about $500 
cheaper. .. 

r 



60 
602 



603 



REM DELETE ROUTINE 

REM IN A PROGRAM , THE VALUES 

OF LOC CATION) 8 PREVCI0U8) 

WOULD BE SUPPLIED BY THE 

DELETION ALGORITHM, 

REM DELETING THE ENTRY POINT 

ED TO BY HEAD?. WILL REQUIRE 



EXTRA UPDATES. 
63 HOME : PRINT "NOW DELETING : 

620 HJR I = 1. TO 3't PRINT DIR$(L 

0C»I)J NEXT 
630 NXT%CPREV> = NXT7. CLOCK GOSUB 

40 
640 FOR T = 1 TO 1000*. NEXT 
650 RETURN 
10 REM MAIN LOOP 
1002 START ■ PEEK C1.03) + PEEK 

C104) * 256 
10 05 GOSUB 30 
iOlO GOSUB 40 OJ' LIST 20 J LIST 10 

001 - 10003: PRINT "ANY KEY 

TO CONTINUE"*. HTAB 20: GET R 

* 
1020 NAME* = "COLLINS, BILL 9 SALISB 

URY" J PREV = 2 
1030 GOSUB 500 

1040 gosub 40 0: gosub 80 

1050 name* = "micro, magazine, chel 

msford*:prev = 4 
1060 gosub 50 0: gosub 40 0: gosub 

80 
1070 NAMES = "BRADY" :L0C * 2. t PREV 

= 1 
1080 GOSUB 60 
i090 GOSUB 40 0: GOSUB 80 



20 REM VIRGINIA LEE BRADY 
2002 REM ROUTINE. TO SHOW HOW TO 
CHANGE APPLESOFT LINES 
UNDER PROGRAM CONTROL. 
10001 DATA AARDVARK, SAM, ANYWHERE 

,002 
100 02 DATA BRADY, VIRGINIA, SALISB 

URY, 003 
10003 DATA ZEBRA, TED, CITY ZOO, 00 





32 K BYTE MEMORY 

RELIABLE AND COST EFFECTIVE RAM FOR 

6502 G 6800 BASED MICROCOMPUTERS 
AIM 65-*KIM*SYM 

PET*S44-BUS 



• PLUG COMPATIBLE WITH THE AIM-65/SYM EXPANSION 
CONNECTOR BY USING A RIGHT ANGLE CONNECTOR 
(SUPPLIED! MOUNTED ON THE BACK OF THE MEMORY 
BOARD 

• MEMORY BOARO EDGE CONNECTOR PLUGS INTO THE 
68O0 S 44 BUS 

• CONNECTS TO PET OR KIM USING AN ADAPTOR CABLE 

• RELIABLE DYNAMIC RAM WITH ON BOARO INVISIBLE 
REFRESH-LOOKS LIKE STATIC MEMORY BUT AT 
LOWER COST AND A FRACTION OF THE POWER 
REOUIRFD FOR STATIC BOARDS 

• USES *5V ONLY. SUPPLIED FROM HOST COMPUTER 

• FULL DOCUMENTATION. ASSEMBLED AND TESTED 
BOARDS ARE GUARANTEED FOR ONE YEAR AND 
PURCHASE PRICE IS FULLY REFUNDABLE IF BOARD IS 
RETURNED UNDAMAGEO WITHIN 14 DAYS 

ASSEMBLED WITH 32K RAM J4I9.00 

S WITH 16K RAM S349.00 

TESTED WITHOUT RAM CHIPS $279.00 

HARD TO GET PARTS (NO RAM CHIPS) 

WITH BOARD ANO MANUAL $109.00 

BARE BOARD S MANUAL $49.00 



PET INTERFACE KIT-CONNECTS THE 32K RAM BOARD TO 
A 4K OR 8K PET CONTAINS: INTERFACE CABLE. BOARD 
STANDOFFS. POWER SUPPLY MODIFICATION KIT AND 
COMPLETE INSTRUCTIONS J49.00 
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16k memory expansion kit 
oniy $59 

for apple. trs-80 keyboard. exidy and all i 
othfr 16k dynamic systems using mk4116-3 | 
or slower devices 

* 200 nsec access. 375 nsec cycle 

* burned in and fully tested 

* i yr parts replacement guarantee 

* oty discounts available 



U.S. PRICES ONLY 



6502 6 6800 

64K BYTE RAM AND CONTROLLER SET 

MAKE 64K BYTE MEMORY FOR YOUR 6800 OR 
6502 THIS CHIP SET INCLUDES- 

• 32M5K4II6-3 16KX1.200 NSEC RAMS 

• I MC3480 MEMORY CONTROLLER 

• 1 MC3242A MEMORY ADDRESS 
MULTIPLEXER AND COUNTER 

. DATA AND APPLICATION SHEETS PARTS 
TESTED AND GUARANTEFD 
$295.00 PER SET 



COmPUTER DEVICES 

1230 W.COUinS AVE. 

OP.An.GE. Cfl 92668 

(714)633-7280 

residents ptease add 6% sales ia> Mastercharge 
i accepted. Please allow 14 days lor checks to 

ear bank. Phone orders welcome. Shipping •*----- 

III be added to all shipments. 

ALL ASSEMBLED BOARDS AND MEM- 
ORY CHIPS CARRY A FULL ONE YEAR 
REPLACEMENT WARANTY. 



EPROM PROGRAMMER FOR AIM-65 
$86.50 

Programs 2716, 2516, and 2532 
EPROMs. 

Selectable blank check and verify. 
Can copy existing EPROM. 
Software utility routines to relocate 
your object code to EPROM ad- 
dress. 
Does not interfere with cassette. 



AIM-65 
Accessories 



MCC 



PARALLEL PRINTER PORT FOR AIM-65 
S57.00 

Interfaces Aim-65 to Centronics 
Parallel Port. 

Compatible with over 34 printers 
from different manufacturers. 
Complete with connecting cable. 
Compatible with Aim-65 Monitor, 
Assembler, and Basic. 



SEND FOR ADDITIONAL 

PRODUCT INFORMATION 

AT NO CHARGE 



ROM EXPANSION FOR AIM-65 
$33.50 

Eliminates need to remove Assem- 
bler or Basic ROMs. 
"Straight-thru" design retains use 
of Expansion connector. 
Sockets for up to 8K additional 
ROMs and EPROMs. 
Available with Zero-Insertion-Force 
sockets ($49.00). 



20076 CHAPMAN AVE 
ORANGE, CALIF. 92669 
714 633-0245 



QUAD ANALOG I/O FOR AIM-65 
$165.00 

Four input and four output chan- 
nels. 

0.1% accuracy input and output. 
Wide bi-polar input and output 
ranges. 

Signed BCD or binary operation. 
Complete driving software includ- 
ed. 



CALIFORNIA RESIDENTS ADD 



Satellite Tracking with the AIM — 65 



Here is a useful application program for the astonomy 
buff. It calculates the information required for tracking 
any satellite. Written for the AIM 65, it may be easily 
adapted to any other 6502 with BASIC. 



CR. MacCluer 

P.O. Box 1858 

E. Lansing, Ml. 48823 



The program listed below will sup- 
ply the user with all necessary track- 
ing data for any earth satellite. The 
program as printed below is set up 
to track the AMSAT-Oscar Phase III- 
A which was due to be launched 
May, 1980 by the European Space 
Agency with their new Ariane from 
French Guiana. 

To modify this program for other 
satellites merely change the 
parameters defined in line 110: 

A = length of the semimajor axis (in 

km) 

E = eccentricity 

P = period of revolution (in minutes) 

K = inclination of orbital plane (in 

degrees) 

W = argument of perigee (in 

degrees). 



For an explanation of these terms 
see my forthcomming HAM RADIO 
article "The Geometry of Phase III- 
A". 

Elliptical orbits will precess due 
to the oblateness of the earth, that 
is, the argument W of peri ee will 
change over time. For instance it is 
expected that Phase lll-A will 
precess .07 degrees per day and 
thus W will have to be up-dated 
monthly. 

For circular orbits take A= 6371 
+ (height of satellite in km) and 
E = W = 0. 

This program as it stands is set 
up to printout in 10 minute in- 
crements, which is perfectly fine 
enough for satellites such as Phase 



lll-A with periods of eleven hours or 
more. But for near earth orbits such 
as AMSAT-Oscar 8, increments of 1 
minute are preferred. To obtain 
minute by minute printouts, merely 
delete the "STEP 10" in line 300. So 
for example to track AMSAT-Oscar 8 
make the following changes: 

100 A=7281 : E=0 : P=103 : K=99 : W=300 : FOR 
T=0 TO P 

The subroutines 4000 and 5000 
are Arccosine and Arctangent 
routines respectively. 

One last change. In line 150 are 
entered the latitude L3 and 
longitude L4 (in degrees) of E. Lans- 
ing, Michigan. You will of course 
change these values to match your 
location. 



ROCKWELL 



AIM 



65 



100 PI =3. 141592654 

110A=24313: E=67627: P=628.83: 
K=57: W=210 

120 A=A/6371: N=2*PI/P: 
E9=SQR((1+E)/(1-E)) 

130 DEF FNF(X)=X*PI/180 

140 DEF FNG(X)=X*180/PI 

150 L3=42.75: L4=84.5 

160 K=FNF(K) : W=FNF(W) : 
L3=FNF(L3): L4=FNF(L4) 

170 K1=C0S(K) : K2=SIN(K): 
G1=C0S(L3): G2=SIN(L3) 

180 PRINT ' 'TIME OF EQX IN UTC? 
(FORMAT 0000) ' ' 

190 INPUT TO 

200 T9=T0/60-2* INT ( TO/100 )/3 

210 PRINT ' ■ LONGITUDE OF EQX? 

(DECIMAL DEGREES)'' 
220 INPUT 00 

225 PRINT 

230 00=FNF(00) : V0=2*PI-W: 
E0=TAN(V0/2)/E9 



240 X=E0 

245 PRINT 

250 G0SUB 5000 

260 E0=2*Y 

270 IF V0<PI THEN 290 

280 E0=2*PI+E0 

290 M0=E0-E*SIN(E0) : MI=M0: 
E1=E0: P1=A*(1-E*E) 

295 PRINT "UTC AZ EL LAT LNG" 

300 FOR T=-INT(M0/N)T0P STEP 10 

310 01=00-L4+T*PI/720 

320 Z1=G1*C0S(01) : Z2=G1*SIN(01) : 
Z3=G2 

330 M=T*N+M0 

340 D=(M-M1)/:01-E»C0S(E1)) : 
E1=E1+D: M1=E1-E*SIN(E1) 

350 IF ABS(M-Ml)>102-8 THEN 340 

360 X=E9*TAN(El/2) 

370 GOSUB 5000 

380 V=2*Y 

390 IF E1<PI THEN 410 

400 V=2*PI+V 

4l0R=PI/(l+E*C0S(V)) 

420S1=R*C0S(V-V0): 



S2=K1*R*SIN(V-V0) : 
S3=K2*R*SIN(V-V0) 

430 D=S1*Z1+S2*Z2+S3*Z3: 
X= ( D-l ) /SQR (R*R-2*D+1 ) 

440 GOSUB 4000 

450 Bl=PI/2-Y 

460 IF Bl^O THEN 470 NEXT T 

475 END 

480 B1=INT(FNG(B1)) 

490 X=(S3-Z3*D)/(SQR(1-Z3*Z3) 
*SQR(R*R-D*D)) 

500 GOSUB 4000 

510A1=Y: H=S2*Z1-S1*Z2 

520 IF H>0 THEN 540 

530 A1=2*PI-A1 

540 A1=INT(FNG(A1)) 

550 X=SQR(1-(S3/R)*(S3/R)) 

560 GOSUB 4000 

570 N1=INT(FNG(SGN(S3)*Y)) 

580 H=S2*C0S(01+L4)-S1 
*SIN(01+L4) 

590 U=S1*C0S(01+L4)+S2 
*SIN(01+L4) 

600 X=U/SQR(S1*S1+S2*S2) 
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To use this routine, load and run, 
answer the two questions posed 
(the time and longitude of the ascen- 
ding equator crossing) and the 
AIM-65 will print out time, azimuth, 
elevation, as well as the latitude of 
the sub-satellite point in 10 minute 
increments. I have included a sam- 
ple printout for AMSAT-Oscar lll-A. 

Another version of this program 
has a software clock and a real-time 
routine which pokes down to 
dataport B the azimuth and eleva- 
tion, thus controlling antenna rotors 
via an interface of my design. A 
description of the interface will 
soon appear in 'Ham Radio'. You 
may obtain this second version from 
me for the consideration of $5.00 
($4.00 of which is donated to the 
AMSAT Phase III program), a blank 
cassette, and a sufficiently 
stamped, self-addressed carton in 
which to return the cassette. Send 
to: C.R. MacCluer, P.O. Box 1858, 
East Lansing, Ml 48823. 



610 GOSUB 4000 

620 IF H© THEN 640 

630 Y=2*PI-Y. 

640 L1=INT(FNG(Y)) 

650Tl=T9+T/60: Tl=60*Tl+40* 
INT(Tl): T1=INT(T1) 

660 T1*10000+T1: 
T1$=RIGHT$(STR$(T1),4) 

670A1$=" "+STR$(A1): 
A1$=RIGHT$(A1$,4) 

680B1$=" "+STR$(B1): 
B1$=RIGHT$(B1$,4) 

690N1$=" "+STR$(N1): 
N1$=RIGHT$(N1$,4) 

700L1$=" "+STR$(L1): 
L1$=RIGHT$(L1$,4) 

710 PRINT T1$+A1$+B1$+N1$+L1$ 

720 NEXT T 

730 END 

4000 Y=l: X1=C0S(1) 

4010DY=(X1-X)/SIN(Y): 
Y=Y+DY: X1=C0S(Y) 

4020 IF ABS(Xl-X)>108-8 THEN 4010 

4030 RETURN 

5000 X2=X: Xl/SQR(l+X*X) 

5010 GOSUB 4000 

5020 Y=SGN(X2)*Y: RETURN 



RUN 

TIME OF EQX IN UTC? 

(FORMAT 0000) 
? 0500 

LONGITUDE OF EQX? 
(DECIMAL DEGREES) 
?90 

UTC AZ EL LAT LNG 
0326 183 -28 88 



0346 


182 


7 


-23 


86 


0356 


181 


13 


-18 


86 


0406 


181 


18 


-15 


85 


0416 


182 


23 


-11 


86 


0426 


182 


27 


-9 


86 


0436 


184 


30 


-6 


87 


0446 


185 


33 


-4 


88 


0456 


187 


36 


-1 


89 


0506 


189 


39 


1 


90 


0516 


191 


41 


3 


91 


0526 


194 


43 


4 


93 


0536 


196 


45 


6 


94 


0546 


199 


47 


8 


96 


0556 


202 


48 


9 


97 


0606 


206 


49 


11 


99 


0616 


209 


50 


12 


100 


0626 


213 


51 


14 


102 


0636 


216 


52 


15 


103 


0646 


220 


53 


16 


105 


0656 


224 


53 


18 


106 


0706 


228 


53 


19 


108 


0716 


231 


54 


20 


109 


0726 


235 


54 


21 


111 


0736 


239 


54 


23 


112 


0746 


242 


54 


24 


114 


0756 


246 


53 


25 


115 


0806 


249 


53 


26 


117 


0816 


253 


53 


27 


118 


0826 


256 


52 


29 


120 


0836 


259 


52 


30 


121 


0846 


262 


51 


31 


123 


0856 


265 


51 


32 


124 


0906 


268 


51 


33 


125 


0916 


271 


50 


35 


126 


0926 


274 


50 


36 


127 


0936 


276 


49 


37 


128 



0946 


279 


49 


39 


129 


0956 


282 


49 


40 


130 


1008 


284 


49 


41 


131 


1016 


287 


49 


43 


131 


1026 


289 


49 


44 


131 


1036 


292 


49 


46 


131 


1046 


294 


49 


47 


131 


1056 


297 


50 


49 


130 


1106 


300 


50 


50 


129 


1116 


303 


51 


52 


127 


1126 


306 


53 


53 


124 


1136 


310 


55 


55 


120 


1146 


315 


57 


56 


114 


1156 


322 


60 


56 


107 


1206 


332 


65 


56 


98 


1216 


354 


70 


54 


86 


1226 


41 


70 


50 


73 


1236 


84 


52 


41 


59 


1246 


104 


16 


26 


45 



We had planned to use the original 
AIM listings with this article, but un- 
fortunately, they were blue, and so 
light that our printer's camera could 
not pick them up. Therefore, we 
have typeset the listings ourselves. 
Hopefully, this will not cause prob- 
lems. We do caution the user about 
some of the labels. Because the 
listings were so light, they were dif- 
ficult to read while setting the type. 
So, watch out for O0. It is not double 
zero, nor double 'oh' it is meant to 
be 'oh zero'; and P1 or PI (P one and 
P 'eye'). ^ 



AIM PLUS 

ENCLOSURE 

With Built-in 
POWER SUPPLY 



POWER A PLUS 

Specifically Designed for 
the AIM-65 



SPECIFICATIONS: 

Input: 110/220 VAC 50/60 Hz 

Output: +5V @ 5A, +24V @ 1A 

Grounded three-wire line cord 
On/Off Swithch with Pilot Light 
Enclosure has room for the AIM and one 
additional board: Memory Plus, or Video 
Plus. 



AIM PLUS 



Small enough to fit inside the AIM 
Enclosure 

Enough Power for the AIM-65 Fully Load- 
ed. 

Plus an Additional Board 
Works on 110/220 VAC50/60 Hz 

Provides Regulated +5V at 5A and 
+ 24V at 1A 

$1 1 0.00 Grounded Three-Wire Power Cord 
ON/OFF Switch and Pilot Light 



POWER A PLUS 



tfsaa 



I 34 Chelmsford St.. Chelmsford. MA. 01824 617/256-3649 



$55.00 



® 



MICRO Limerick Contest 



Much to our delight here at Micro, we have had 
good response to our limerick contest first an- 
nounced in the May issue. We had no idea that so 
many of our readers were poetic! 

Almost every entry that we have received to 
date has been in the required form. A few had to 
be disqualified because they were too long to be 
limericks. We must congratulate all who submit- 
ted limericks for taking the time and interest in 
our first contest of this kind. The entries have pro- 
vided us with something to look forward to with 
each day's mail, and have been entertaining 
reading material for the company bulletin board. 

We had originally planned to announce the win- 
ner of the contest in the September issue, but we 
are changing that now. Instead, we are publishing 
what we have judged to be the best entries, and 
we will let you readers decide. 

All we ask is that you write or phone and tell 
which limerick you like best. The winning 
limerick, and the author of it will be announced in 
the October issue. 

And now, here are what we have judged to be 
the best limericks. Somewhere in their midst is 
the winning one. 

There was a young hacker named Drew 

Who programmed all day and night too. 

By morning 'twas done 

But he didn't type run. 

The poor little guy entered new. 

Art Carpet 
Canyon Country, CA 

When first introduced to the 6-5-0-2, 
I conceded it's clever; but what can it do? 
Ask Atari or Apple, they know what you get, 
Ask Sym or Kim to find out my Pet. 
After taking Aim, I found it true, Micro does it all 
for you. 

Ralph R. Orton 
Granada Hills, CA 



That was under the sun 

To make programs run 

Well Micro improved his perfection, but quick! 

W.G. Fullerton 
Ottawa, Canada 

For the 6516 by Synertek 

To Santa Clara, we did trek 

But past the editor did slide 

An April Fool's by Mr. Hyde 

Did our expansion plans thus wreck. 

Earl Morris 
Midland, Ml 

A con man of articulate diction 
Flattered her beyond description 
She responded with laughter 
"It's not me that you're after, 
But my Micro journal subscription!" 

Harold I. Math is 
Southfield, Ml 

Some magazines are geared too low, 

Others are just so-so. 

For a 6-5-0-2 

About the best you can do 

Is subscribe to the best, namely Micro. 

Mike Sullivan 
Belleville, NJ 

In the world of zero and one, 

There's a mag which is second to none. 

It's Micro, you see 

The journal for me, 

Or my 6502 would be done. 

D. Duckworth 
Las Vegas, NV 

He saw her reading Micro and knew 

That she owned a six five o'two. 

He sent her a scribble 

She gave him a nibble 

Now they both share the same CPU. 

H. I. Mathis 
Southfield, Ml 



There once was a key-pounder named Rick 
Who thought he knew every trick 



Continued on page 70... 
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Mountain Hardware makes 

more peripherals for 

the Apple Computer 

than Anybody. 

and . . . 

a place to put them 




mi "i 



ICL0CK 

interrupts 
'reground.'Background c 

■nultansously. Batten; back-up. 
001% accuracy. Onboard 
• access from -;■ .orts 

Time from one millisecond to ons year. 

SUPERTALKER SD200 

; Speech Digitizer. Permits talking programs I/O capability 
jrams with speech-prompted inputs. Use output for 
h directed activities In business systems, announcements in a control- 

or sound effects in entertainment programs. Easy to use because input 

[ well as output is under user control with special software operating system. 

ROMWRITER 

Program your own EPROMs. Create your own firmware. 
Programs 2K, 2716 5V EPROMs. Disk software, package 
provides easy EPROM programming. EPROMs are verified 
after BURN. RUN your programs from on-board socket Or 
install them on ROMPLUS-h 

ROMPLUS+ 

More power for your system through firmware. Six sockets 
accept 2716 EPROMs or ROM equivalents. Six or any com- 
bination can be used at once. Scratch-pad RAM and two TTL 
lonnectors. Special 2K ROMs available for powerful system 
hancement: Keyboard Filter ROM -COPYROM -Others 
;coming soon. 

MusicSystem 

Sophistication previously available only on 
experimental mini and mainframe com- 
puter synthesizers. Digital instrumental 
music synthesizer system. IS voices in 
stereo. Instrument definitions simulate the 
sound of real instruments— and more. Fully 
programmable waveforms. Envelope Con- 
trol. Composition system— sheet music 
input using standard music notation. 
Chords and multi-part scoring up to 16 
voices. A true instrument that anyone with 
an Apple can play. 



Mountain Hardware 




A/D+D/A 



16 channels analog to digital input 16 

channels digital to analog oufpui. 

[ht bil resolution. Super-last 8« 

conversion time. Monitor and 

jt to the real world. All on one 



EXPANSION CHASSIS 

By popular demand! Eight more slots for your 
Apple. Attractive sturdy enclosure. Its own heavy 
duty power supply. Easy to use. Address .cards 
in Expansion Chassis the same way as in your 
Apple. Only one additional command to specify 
in Apple or in Expansion Chassis. Compatible with 
all Apple peripherals 



MOUNTAIN HARDWARE has the most compre- 
hensive line of Apple peripherals available 
Any were. From anybody. We know the Apple 
inside and out .and are committed to providing 
the most innovative and unique products to 
expand and enhance its capabilities and use. 
After all. we were the Hrsl company to make an 
Apple peripheral— except Apple Computer. 
The messaqe is simple. If you have an Apple, you 
need to know MOUNTAIN HARDWARE. 
Available at Apple Dealers worldwide. 



I ' — " 

I K* Mountain Hardware 

| Leadership in Computer Peripherals 
flfc A Division' ol Mountain Computer. Inc. 
300 Harvey West- Blvd. 
Santa Crui, CA SS060 (40B) 439-8600 

MORE PERIPHERALS? Send me information. 

NAME 

ADDRESS ■■ 

CITY STATE ZIP 

Appte is J trademark oi Apple Computet Inc. 



Better Utilization of APPLE Computer 
Renumber and Merge Program 



The Renumber and Merge program is very useful, and 
here is a technique that makes it even easier to use. 



Frank D. Chipchase 

21 St. George St. 

West Milford, NJ. 07480 



I consider a utility program ex- 
cellent when it can be utilized at any 
time under any condition. This br- 
ings me to that marvelous Applesoft 
Renumber and Merge program 
which comes with DOS 3.2. 

Many times, during programming 
or editing, the need arises to move 
chunks of your program to different 
locations, to renumber portions of 
your program, or to merge in some 
of your favorite routines. Now 
comes the test of using a good utili- 
ty program. 

You did not load and run the A/S 
-R/N & M Program prior to starting 
work on your program. Now what? 

Save your program, load and run 
the A/S - R/N & M program, now load 
back in the program you were work- 
ing on and you are ready to go 
again. Meanwhile, your train of con- 
centration has been broken on what 
you were originally doing. 

There is a better way; at least I 
think there is. If we plan ahead a lit- 
tle bit. 

If the A/S - R/N & M program is set 
up as a 'B' file then when it is need- 
ed it can be 'BLOADED' into 
memory while our program that is 
being worked on stays in memory 
and undisturbed. 

Here's the procedure in setting up 
an A/S - R/N & M 'B' file. The next 
time you boot a disk check to see 
what HIMEM: is set for right after 



the disk is booted. This is found by 
doing the following from the 
keyboard. 



Print PEEK (115) +256 * Peek 
(116) (C/R). 

(On a 48K HIMEM: 38400 - on a 32K 
HIMEM: 22016.) The next thing to do 
after recording your system HIMEM: 
is to load and run that outstanding 
renumber and merge program that 
APPLE Computer gave you on your 
master DOS 3.2 diskette. When the 
A/S prompt character RETURNS it 
means that the Renumber program 
has been put into a little corner 
someplace in your computer's 
memory, ready for your beck and 
call. 

Actually where it resides in 
memory is right under your systems 
previous HIMEM: which was set 
when you first booted (this is the 
number you first recorded). 
HIMEM: has now been changed by 
the renumber program. Let's record 
the new HIMEM: Again, from the 
keyboard. 

Print PEEK (115) +256*PEEK (116) 
(C/R) 

(On a 48K HIMEM: 36352 - on a 32K 
HIMEM: 19968). 

We now have two numbers which 
we recorded. Subtract the smaller 
from the larger, this should equal 
2048. 

O.K., lets put the renumber pro- 



gram into a 'B' file on disk. From the 
keyboard: 

BSAVE A/S-R/N-M, A (your 2nd 
HIMEM: number you recorded), L 
2048 For a 48K this would look like 
BSAVE A/S-R/N-M, A36352, L2048 
For a 32K BSAVE A/S-R/N-M, 
A36352, L2048 O.K., the 'B' file for 
the renumber program is all set. 

Now, lets assume you are merrily 
programming away and the 
renumber program is not in memory. 

The need occurs for renumbering, 
a merge or a hold. The newly created 
A/S-R/N-M 'B' file can now be 
'BLOAD'ed in without disturbing 
your existing program. From the 
keyboard-BLOAD A/S-R/N-M 
(C/R).Once the 'B' file is loaded in, 
there are a few instructions that 
must be issued to your computer so 
that it knows the A/S-R/N-M program 
is in memory and where it is when it 
is needed. From the keyboard enter 
the following instructions; 

For A 48K System: 

HIMEM: 36352 (C/R) 

POKE 1013,76 (C/R) 

POKE 1014,0 (C/R) 

POKE 1015,142 (C/R) 

For A 32K System: 

HIMEM: 19968 (C/R) 
POKE 1013,76 (C/R) 
POKE 1014,00 (C/R) 
POKE 1015,78 (C/R) 

O.K., that's it. You are all set to 
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use the Renumber program. As you 
will note, your existing program is 
still in memory and undisturbed. 
What the first instruction did was 
reset your system's HIMEM: below 
the A/S-R/N-M program that you just 
BLOADED in. This is required for 
when you use the hold feature of the 
program. The last three POKE in- 
structions tell the ampersand 
character "&",which you use when 
using the renumber program, where 
to find the A/S-R/N-M program in 
your system, (see Applesoft manual 
p.123) 

All the operating commands and 
formats that are used for the 
renumber program are valid and are 
used in the same manner. To free up 
the 2K of memory the A/S-R/N-M pro- 
gram is occupying, do a HIMEM: 
38400 for a 48K system or a HIMEM: 
22016 for a 32K system. 

Now that you have come this far 
the ideal thing to do is set up a T 
(text) file and let your disk 'exec' the 
whole procedure into your APPLE. 



The program to write a text file 
would look like the following; 
]LIST 

10D$ = CHR$(4): REM CTRL D 

20 PRINT D$; "OPEN RENUMBER- 
MERGE" 

30 PRINT D$; "WRITE RENUMBER- 
MERGE" 

40 PRINT "BLOAD A/S-R/N-M" 

50 PRINT "HIMEM:36352:" REM for 
32K system use 19968 

60 PRINT "POKE 1013,76" 

70 PRINT "POKE 1014,0" 

80 PRINT "POKE 1015,142": REM 
FOR 32K SYSTEM USE 78 IN PLACE 
OF 142 

90 PRINT D$; "CLOSE RENUMBER- 
MERGE" 

100 END 



After the above program is run, a 
text file, named Renumber-Merge, 
will be created. Make sure this T 
file is on the same diskette as your 
'B' file A/S-R/N-M. 

Now, whenever the renumber pro- 
gram is required all you have to do is 
type in EXEC Renumber-Merge. 



Frank Chipchase is presently 
employed as Chief Engineer for In- 
ternational Multifoods Corp. Until 
he purchased an APPLE computer, 
which was approximately one year 
ago, he had no expierence or con- 
tact with computers other than a 
programmable calculator. Although 
he purchased a computer for the 
pure fasination and challenge it 
would present, he has recently writ- 
ten a utility program for the APPLE 
computer which is presently being 
marketed for sale. 



EDUCATIONAL SOFTWARE 
for the APPLE II and APPLE II PLUS 

VERBAL SKILLS 

Diskettes with Applesoft Programs and data base can be used to Im- 
prove verbal skills Interactively. Intended as study aids for college board 
type exams (E.G., SPJ. GRE. LSflT. ACT. ftlfiT. ETC). Programs Include a resi- 
dent editor for expanding or modifying data lists. Realistic multiple choice 
questions are generated with several options. Requires no computer ex- 
perience making it ideal for students. 



Vocabulary Bullder- 

Analogy- 

Sentence Completion- 
Verbal Skills Pak- 



Over 1600 entries with op- 
tion of matching synonyms 
or antonyms - $19.95 
Over 1200 word relation- 
ships - $19.95 
Equivalent to 6 SPIT tests 
-?19.95 

fill three diskettes for just 
244.95 



SLIWfi ENTERPRISES 

EDUCATIONAL SOFTWARE DEPARTITIENT 

POST OFFICE SOX 7266 
HfllTIPTON. VIRGINIA 23666 

' Apple Is a registered trademark of Apple Computer. Inc. 



.Decision 
Qysterns 




Presenting the Other Side o/lhe Apple If 

INDEXED FILES 

ISAM DS is an integrated set of routines for the creation and manipulation 
of indexed files. ISAM-DS provides capabilities comparable to those on 
large mainframes. You can rapidly retrieve records by key value or partial key 
value Iretrieves any record in a 200 record file. 60 char/record, in less than 3 
seconds compared to a maximum of 38 seconds for a DOS sequential file). 
Files never have to be reorganized. Duplicate key values may be used. 
Records may also be retrieved in sequence. ISAM-DS routines are easily in- 
tegrated into Applesoft programs they use less than 3K RAM plus an in- 
dex table. 

Requires: Disk, Applesoft I32K ROM or48K RAMI 

$50 

STRUCTURED BASIC 

PBASIC-DS is a sophisticated preprocessor for structured BASIC. Now 
you can gain the power of PASCAL-like logic structures at a fraction of the 
cost. Use all regular BASIC statements plus 14 commands and It new 
statements/structures {WHILE. UNTIL. CASE. etc. I. PBASIC-DS can be 
used to develop INTEGER or APPLESOFT programs. It is a great way to 
learn and use structured logic concepts. 

Requires: Disk. Applesoft I32K ROM or 48K RAMI 

$35 

(Texas residents add 5% taxi 

Decision Systems 

P.O. Box 13006 
Denton. TX 76203 

'Apple II is a registered trademark of the Apple Computer Co. 
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Variable Lister 



This nifty little program will extract the variable names 
from your BASIC program, sort them, and list them 
alphabetically. 



Ray Cadmus 

600 W. Lee 

Moberly, MO. 65270 



I noticed a comment in a recent 
article bemoaning the lack of a 
BASIC X-REF FOR THE Apple. 
Perhaps this little program will help 
to fill that void. 

The program is crude. It just 
scans the program area picking up 
words not in quotes and assumes 
them to be variable names. This ap- 
proach also gets words from remark 
statements etc. Its one virtue is that 
it works. 

Several changes could be made 
easily to enhance its operation. Turn 
off scanning after a REM token. 



Change the bubble sort to a Shell 
sort. (I use & sort myself). Set up an 
EXEC file to auto-append and ex- 
ecute, and so on. The most 
desireable change, of course, would 
be to rewrite in assembler. I plan to 
do that when time permits. 

To use the program, simply ap- 
pend it to the one you wish to 
analyze and RUN 60,000. I use 
APPLE'S renumber/append utility, 
but several have been published in 
MICRO and elsewhere. Another ap- 
proach would be to list the program 
to a text file and the EXEC it into 
your program. n, 



Ray Cadmus has been in data pro- 
cessing since the late 50's and pro- 
gramming since the early 60's. Most 
of his work has been with business 
applications on large scale IBM 
equipment. He started programming 
microcomputers because that 
would give him the opportunity to 
write what he wanted, rather than 
what business pressure dictated. 
Now, though he still works with 
micros for fun, he is expanding his 
consulting activities into the area of 
Small Business Computers and 
hopes to someday make that his 
primary occupation. 



.11 l>"WVT 

3LIST 

60000 REM --VARIABLE LIST— 6/7/79 

60001 HOME 

60002 PRINT "VARIABLE LISTER - RAY CADMUS"! PRINT 

PRINT 

60003 PRINT "EXTRACTS AND PRINTS BASIC VARIABLES": 

PRINT : PRINT 

60004 PRINT "AFTER THE FIRST PASS THRU" 

60005 PRINT "PROGRAM - SORTS - THEN LISTS" 

60006 PRINT "ALPHABETTICALLY" 

60007 FOR D = 1 TO 1999! NEXT 

60008 HOME 

60009 LL = 59999! REM ** HIGHEST LINE TO EXAMINE 

600 10 PD« = " 

60011 DIM T$(500 )fT<500 ) 

60012 REM *****FIND FIRST LINE**** 

60013 NL = 2049 

60014 P = 2049 

60015 CL = NL 

60016 NL = PEEK (P) *• < PEEK ( P + 1 ) * 256 ) 

60017 IF NL = THEN 60O53 

60018 P = P + 2 

60019 LN = PEEK (P) t < PEEK ( P + 1 ) * 256 ) 

60020 IF LN > LL THEN 60053 

60021 LAB* = "" 

60022 GOSUB 60032: REM GET NEXT ALPHA 

60023 LAB* = LAB* t CHR« < CH > 

60024 GOSUB 600411 REM GET NEXT CHAR 

60025 IF CH > 64 AND CH < 91 THEN 60023 

60026 IF CH > 47 AND CH < 58 THEN 60023 

60027 IF CH = 36 THEN 60023 

60028 IF CH = 37 THEN 60023 

60029 GOSUB 60046 

60030 GOTO 60021 

60031 REM ****GET ALPHA CHAR 

60032 GOSUB 60041 



60033 

60034 

60035 

60036 

60037 

60038 

60039 

60040 

60041 

60042 

60043 

60044 

60045 

60046 

60047 

60O48 

60049 

6005O 

60051 

60052 

60053 

60054 

60055 

60056 

60057 

60058 

60059 

6006O 

60061 

60062 

60063 

60064 

60065 

60066 

60O67 

60068 

60069 

60070 

60071 



GOSUB 60036 

> 90 THEN 60032 



GOTO 60015 



IF CH = 34 THEN 
IF CH < 65 OR CH 
RETURN 
GOSUB 60041 
IF CH < > 34 THEN 60036 
GOSUB 60041 
RETURN 

REM ******GET NEXT CHAR 
P = P + 1 
IF P = NL THEN POP : POP 
CH = PEEK < P > 
RETURN 

REM ***** STORE LABEL **** 
PRINT LNJ" "5LAB*. 
X = X + 1 
T* = LAB* 
LN* = STR* < LN ) 
T* = LEFT* <T* + PD*»10 ) 
T*( X) = T« + LN* 
RETURN 

: REM ****** SORT RTN ***** 
PRINT ! PRINT ! PRINT "SORTING— WAIT" ! 
FOR A = 1 TO X - 1 PRINT 

FOR B = A + 1 TO X 
IF T*(A) < T*<B) THEN 60061 
HH* = T*< A) 
T*( A) = T*< B) 
T*(B ) = HH* 
NEXT Br A 

REM *** LIST VAR TABLE **** 
HOME 

FOR C = 1 TO X 
PRINT T*(C> 
NEXT C 
PRINT 

INPUT "LIST AGAIN SLOWLY? 
IF Z* = "Y" THEN 
SPEEIi= 255 
END 



"(Z* 
SPEEDa 150! GOTO 60064 
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6502 745 10 @ 6.95 50 C°> 6.55 100 («> 6 15 

6502A 840 10 @ 7.95 50 @ 7.35 100 (?) 6.90 

6520 PIA 5.15 10 @> 490 50 @ 4.45 100 @ 415 

6522 VIA 715 10 @ 6.95 50 @ 6.45 100 9 6.00 

6532 7.90 10 @ 740 50 <°) 700 100 @ 6.60 

2114-L450 4.75 20 9 4.45 100 (B 4 15 

2114-L300 5.95 20 C* 5.45 100 @ 5.10 

2716 EPROM 21.00 5 @ 19.00 10 @ 17.00 

4116200ns RAM 7.00 8 @ 6.25 

6550 RAM (PET 8K) 12.70 

2110? 90 

S-100 Wire Wrap S2.85 10 3 2.65 

S-100 Solder Tail S2.35 10® 2.15 

DISKS 

(write (or quantity prices) 

SCOTCH 8" Disks 10/S31.00 

SCOTCH 5V<" Disks 1 0/S31 .50 

Verbatim 5''." Disks 10/524.50 

Diskette Storage Pages 1 0/S 3.95 

Disk Library Cases 8" - $2.95 5" - $2.1 5 

BASF 5S" Disks 10/$25.0O 

BASF 8" Disks 10/S27.00 



ATADl INTRODUCTORY SPECIAL 

HIMKI ATARI 400 Alan 800 and ail Alan MorJuies 20° o OFF 



A P Products 
15% OFF 

PET 4 Voice 

Music System 
Zenith Z-19 
KIM-1 
SYM-1 
KTM 2/80 
Leedex Monitor 

Centronica 737 



S 60 
$770 
S159 
$209 
$349 
$129 

$845 



All books 15% Off 



CASSETTES 

AGFA PE-61 1 

in 5 screw housing 

C-10 10/5.65 100/48.00 

C-20 10/6.45 100/57.00 

C-30 10/7.30 100/66.00 

All other lengths 

available. Write for 

price list. 



COMMODORE PET-CBM 

Write or call for quotes 

NEW 8016/32 80 Column Screen 

NEW 8050 950K Dual Drive 

EDUCATIONAL DISCOUNTS 
AVAILABLE 




WRITE FOR CATALOG 

Add $1 .00 per prepaid order for US shipping (UPS) 



■ DP . 1 15 E. Stump Road 

A D UOmp UI8rS Montgomeryville. PA 18936 

(215)699-5826 
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END FRUSTRA TIONH 



FROM CASSETTE FAILURES 
PERRY PERIPHERALS HAS 
THE HDE SOLUTION 
OMNIDISK SYSTEMS (5" and 8") 

ACCLAIMED HDE SOFTWARE 

• Assembler, Dynamic Debugging Tool, 
Text Output Processor, Comprehensive 
Memory Test 

• Coming Soon— HDE BASIC 

PERRY PERIPHERALS S-100 PACKAGE 

Adds Omnidisk (5") to 
Your KIM/S-100 System 

• Construction Manual — No Parts 

• FODS & TED Diskette 

• $20. +$2. postage & handling. (NY residents 
add 7% tax) (specify for 1 or 2 drive system) 

Place your order with: 
PERRY PERIPHERALS 

P.O. Box 924 
Miller Place, N.Y. 11764 

(516)744-6462 

Your Full-Line HDE Distributor/Exporter 
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Dealer Information Form 

MICRO Dealer Update company Name: 

MICRO is preparing to publish another update Address: 

on Dealers. There is still time to get your company 

listed. Simply send in the requested information y 

and you too will be listed in our zip coded list. This state: Zip 

is a service for our readers so that they may locate 

dealers in their area. Send this information to: Phone: Hours 

.«,«_.«-. , .... 6502 Contact: 

MICRO Dealer Update 

P. O. Box 6502 6502 Products/Services: 

Chelmsford, MA 01824 



^V 



Additions to Tiny Pilot 



These additions to Tiny Pilot include code to input a 
numeric variable, generate a random number, and call a 
machine language subroutine. A complete sample Pilot 
program is included. 



Bob Applegate 
Box 148 

Bordentown, NJ 08505 



Nicholas Vrtis' Tiny PILOT is a 
neat way to move up to a high level 
language, but it does have some 
drawbacks. One of the biggest pro- 
blems is the lack of a method to in- 
put into a variable from running pro- 
gram. All values must be preset by a 
C: command. This can be a real has- 
sle for some applications. 

Another useful addition would be 
a machine language subroutine call. 
It would allow you to write programs 
using functions that standard Pilot 
doesn't have, like having a beeper 
rather than a "?" for a prompt. Or 
maybe comparing the contents of 
two variables and setting a flag to 
indicate which is larger. 

One more function that could be 
added is a random number 
generator. Some games (until my 
KIM takes over the world, I'll resort 
to playing games on it!), such as Hl- 
LO and CRAPS, can be played only 
if a random value can be created. If 
any of these problems bother you, 
then read on! 

These routines will solve all of 
these problems. Before I start detail- 
ing them, realize that they will take 
away from memory space for the 
source (in Pilot). This will be no pro- 
blem if your system has extra 
memory, but my 2K is filled really 
fast with a long program! Don't use 
a lot of remarks and long strings to 
conserve space. 

Let me start by describing what 
modifications are needed to Tiny 



PILOT for these programs to work. 
Make the following corrections: 



027 E 
0281 



4C 
EA 



16 



05 



That just tells the interpreter to 
try to match the current command 
with our new ones before it checks 
its own. The instructions that we 
just wiped out are replaced at 0516. 
Correct the following: 



048C 



A9 



06 



That tells the interpreter that the 
Tiny PILOT source begins at page 6, 
not page 5. Addresses 04FA ot 0515 
are just relocated versions of the 
subroutines previously described by 
me (MICRO, 21:41). If your system 
doesn't need them, relocate the rest 
of the program to 04FA. If you will 
be using them, remember to correct 
all the I/O calls in the Pilot inter- 
preter. Here are the new instruc- 
tions: 



l:x Input a positive number into 
variable x (can be any from A to Z). 
Prints a "?" as a prompt. 

P:x Puts a random number into 
variable x (can be any from A to Z). 
The number will be in the range to 
99. 

L:x Calls machine language 
subroutine x (can be any name from 
A to Z). The starting address of the 
subroutine is stored in the following 
table: 



Name Zero page address 

A A0, A1 

B A2, A3 

C A4, A5 



Y DO, D1 

Z D2, D3 

Here's how they work. 0516 to 
0519 only replace what we 
destroyed at 027E to 0281. The first 
four instructions see if the next 
command is an L: command. If not, 
it jumps to 0531 for the next com- 
mand. If it is the right one, it jumps 
to the subroutine at 0494 to get the 
index for the label name. Then it 
uses the index to get the starting ad- 
dress of the subroutine from the 
table (low-order first). Then it puts 
the values at the appropriate loca- 
tions (052C, 052D) and makes a 
jump to the subroutine. This routine 
can't be PROMmed. 

There is probably a better way to 
execute that jump, but this way is 
easy, and it works. Finally it jumps 
back to 0279. 

I can't take credit for the random 
number generator (053A to 054B). It 
is a slightly modified version of the 
one presented by Jim Butterfield on 
page 172 of The First Book of KIM. I 
suggest that you look there for the 
theory behind it. Addresses 0531 to 
0534 just check to see if we are ex- 
ecuting the correct command. A call 
is made to 0494 for the index. The X 
register is stored for future use at 
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008D. Then the random number is 
produced. The result is in the A 
register. X is loaded again; then the 
value of A is stored in the proper 
variable. It finished by jumping to 
0279 

All that is left now is the I: com- 
mand. If it's not an I, the program 
jumps to 0591. The next five instruc- 
tions output a prompt character 
("?") and clear the temporary work 
area (00DA, 00DB). Then it gets the 
ASCII input. If it is a CR, it jumps 
ahead to 0580. Otherwise, it sub- 
tracts $30 to get a decimal number. 
Next, it rolls 00DA and 00DB four 
places to the left, to make room for 
the new digit. The value of the A 
register is added to 00DA to achieve 
the new number. The program jumps 
back to 0564 to get the next 
character. 

Once a CR input, the program 
goes to 0580. Then it jumps to 0494 
for the index. The contents of 00DA 
and 00DB are stored at the proper 
variable. Then the program outputs 
a CR and LF, and finally jumps back 
to 0279. 

If the command didn't match any 
of those, the program goes back to 
0282, where it looks through the 
standard Pilot instructions. Addi- 
tional commands can be added 
from 0591 and up. The A register will 
already contain the command 
character, so just use a CMP in- 
struction to see if it is the one you 
want. The Y register already points 
to the character after the ":", so just 
use a B1 97 to load it into the A 
register. The last instruction should 
be 4C 79 02. The very last instruction 
after your additional routines must 
be 4C 82 02. 

I hope that these new commands 
will increase the use of Tiny PILOT. 
It is really a good language, con- 
sidering its small size. I have includ- 
ed some sample Tiny PILOT pro- 
grams to demonstrate what it can 
do. /A 

Bob Applegate is seventeen years 
old, an 11th grade student. He has 
been accepted to a local college 
where he plans to major in computer 
science. He has been working with 
computers for about four years, 
starting with BASIC, at Princeton 
University. 

His one-year-old KIM is about to be 
upgraded to 16K, with OSI BASIC-in- 
ROM. 



New Pilot Commands 



8516- 


85 87 


STfi 


«87 


CLEFR HIGH BIT FOR EDITOR 


8518- 


C9 


INV 




POINT TO 


8519- 


C8 


INS' 




HND THE NEXT CHHRHCTER 


851A- 


C9 4C 


CMP 


t»4C 


IS IT THE L COMMfiND 


851C- 


00 13 


BNE 


*0531 


NO, GO TO 0531 


851E- 


20 94 04 


JSR 


«0494 


COMPUTE THE INDEX 


8521- 


B5 na 


LDfl 


«fle,x 


GET THE HIGH-ORDER BYTE FROM TRK.E 


8523- 


80 2C 05 


STH 


»052C 


PUT IT BEHIND THE JSR 


0526- 


B5 Rl 


LDfl 


tfll,X 


GET THE LOU ORDER BYTE 


8528- 


80 20 05 


STfl 


S052D 


PUT IT BEHIND THE JSR 


832B- 


20 00 00 


JSR 


S0000 


EXECUTE THE SUBROUTINE 


852E- 


4C 79 02 


JMP 


#0279 


HLL DONE- RETURN TO PILOT 


8531- 


C9 50 


CMP 


•*50 


IS IT THE P COMMflND 


8533- 


00 20 


BNE 


*0555 


NOPE, GO TO 0555 


§535- 


28 94 04 


JSR 


S0494 


COMPUTE THE INDEX 


8538- 


86 80 


STX 


S8D 


STORE THE INDEX FOR HOU 


853ft- 


F8 


SED 




DECIMHL NUMBERS ONLY, PLEflSE 


853B- 


38 


SEC 




CHRRV HDDS UHLUE 1 


853C- 


H5 D5 


LDfl 


«D5 


LRST UFILUE 


B53E- 


65 D8 


HOC 


«D8 


HDD B+CHRRV 


8540- 


65 D9 


HOC 


«D9 


HDD C 


8542- 


85 D4 


STfl 


»D4 


NEU NUMBER 


8544- 


R2 04 


LDX 


•S04 


MOUE 5 NUMBERS 


8546- 


B5 04 


LDfl 


«D4,X 


GET FIRST NUMBER 


8548- 


95 D5 


STfl 


SD5-X 


MOUE OUER 1 


854A- 


Cfi 


DEX 




NEXT NUMBER 


854B- 


10 F9 


BPL 


«0546 


HLL MOUED? 


854D- 


08 


CLD 




EUERVTHING BHCK YO NORMRL 


854E- 


f!6 80 


LDX 


«8D 


PICK-UP THE INDEX 


8550- 


95 54 


STfi 


*54,X 


STORE THE NUMBER HT UHRIHBLE 


8552- 


4C 79 82 


JMP 


S0279 


BHCK TO PILOT 


8555- 


C9 49 


CMP 


•*49 


SEE IF IT'S THE I COMMflND 


8557- 


00 38 


BNE 


*0591 


GO TO 0591 IF NOT 


8559- 


R9 3F 


LDfl 


•«3F 


GET fl "?" 


B55B- 


20 02 05 


JSR 


♦0502 


OUTPUT IT SflS H PROMPT 


B55E- 


ft9 08 


LDfl 


•S00 


CLEHR THINGS OUT 


8560- 


85 DFl 


STH 


»Dfi 


ESPECIHLLV THIS TEMPORHRY UHRIHBLE 


8562- 


85 DB 


STfl 


SUB 


DITTO 


B564- 


20 Ffl 04 


JSR 


»04Ffi 


GET INPUT 


8567- 


C9 00 


CMP 


•SOD 


CR? 


8569- 


F0 15 


BEQ 


*0580 


YES- GO TO 0586 


B56B- 


38 


SEC 




GET REHDV TO SUBTRfiCT 


856C- 


E9 30 


SBC 


VS30 


TURN fiSCII INTO BCD 


B56E- 


H2 04 


LDX 


•S04 


GET REHDV TO MULTIPLY BY IB 


B570- 


18 


CMC 




CLEHR THINGS FIRST 


B571- 


06 DB 


flSL 


*DB 


MULTIPLY 


8573- 


26 DA 


ROL 


*Dft 


MULTIPLY 


0575- 


Cfi 


DEX 




HGFIIN? 


8576- 


00 F8 


BNE 


«0570 


YES, THEN 0570 


8578- 


18 


CMC 




CLEHR THINGS UP AGAIN 


8579- 


65 DB 


HOC 


*DB 


HDD THE NEU DIGIT 


857B- 


85 DB 


STfi 


*DB 


STORE THE ANSWER 


857D- 


4C 64 05 


JMP 


*0564 


DO IT HLL OUER HGAIN 


8580- 


20 94 04 


JSR 


*0494 


GET THE INDEX 


8583- 


H5 Dfl 


LDfl 


»Dft 


GET FIRST PHRT OF HNSUIER 


8585- 


95 53 


STfi 


S53-X 


STORE IT AT UHRIHBLE 


8587- 


R5 DB 


LDfl 


*DB 


GET THE NEXT PHRT 


8589- 


95 54 


STfi 


«54-X 


HND STORE THAT 


858B- 


20 0fl 05 


JSR 


*050fl 


START A NEU LINE 


858E- 


4C 79 02 


JMP 


»0279 


HLL DONE, RETURN TO PILOT 


8591- 


4C 82 02 


JMP 


«02S2 


NOT A NEU COMMAND- CHECK OLD ONES 


kim 

Q7DC 




Some Relocated Subroutines 


28 G 


(See MICRO 21:41) 


@4Ffl 


84 


EE 




STV *EE 


04FC 


28 


5fl IE 


-JSR $1E5FI 


84FF 


fl4 


EE 




LDV *EE 


050 1 


60 






RTS 


8502 


84 


EE 




STV *EE 


8504 


20 


R8 IE 


,TSR $1EA8 


0587 


04 


EE 




LDV *EE 


8509 


60 






RTS 


850H 


86 


ED 




STX *ED 


850C 


84 


EE 




STV $EE 


050E 


20 


2F IE 


.JSR *1E2F 


8511 


fl6 


ED 




LDX *ED 


0513 


R4 


EE 




LDV *EE 


0515 


68 






RTS 



>RSBLHCK-MFITCH 
>T*What- is your name 



EXAMPLE 



>T: Hello $?, you and the cor.iFut.er take turns by removing 1, 

>T«2# or 3 matches from the pile of 21 matches. Whoever takes 

XT': the last match loses. Good luck! 

>*SC! 1=1=21 

>C:B=121 

>*HT« 

>T " Enter your move 

>I E C 

>C:D=4-C 

>T ° My move i s t-D 

>C:fl=R--4 

>C:B=B-4 

XT: The new total is $fl 

>C : *=B 

>Ms 181 

>N.J:H 

>TsVour next move must be 1 *?.. SO I win! 

>T £ Do you want to try a^a i n? 

>fl: 

>MsV,y 

>7.J:S 

>T! Don't feel bad *Y, this program 

\c- can only win. 



BLACK MATCH: The first thing we do is get the player's 
name and put it into the name field. A and B contain the 
number of matches left, but B has 100 added to it. Tiny 
Pilot has problems with its match statement , so it is 
necessary to have both A and B. We get the player's 
guess and subtract it from four to get the computer's 
move. If B equals 101, meaning only one match is left, 
the computer claim its victory, otherwise it gers the 
players's new move. 



What, is your- name 
?BOB 

Hello BUB., you and the computer- 
take turns by removing 1.- 2, 
or 3 matches from the pile of 21 
matches. Whoever takes the 
last- match loses. Good luck! 

Enter- your move 

72 

My move is 2 

There are 1 17 matches left 

Ent.er your move 

?1 

My move is 3 

There ar& 13 matches left 

Ent-er your- move 

My move is 2 

There are- 9 matches left 

Enter your- move 

My move is 1 

There ars 5 matches left- 
Enter your- move 
?1 

My move is 3 
There ars 1 matches left 



Vour next move must be 1 .. 
so I win! 
Want- to try adain? 
?yes 

Enter your move 

?2 

My move is 2 

There ar-B 17 matches left 

Enter your move 
?4 

My move is @ 

There are 13 matches left- 
Enter your move 
?1 

My move is 3 
There are 9 matches left. 

Enter- your move 

?76 

My move is -72 

There are 5 matches left 

Enter your move 

?2 

My move is 2 

There are 1 matches left. 

Vour next- move must be 1.- so I win! 

Want- to fry a^ain? 
?no thanks ! 

Don't feel bad, BOB, this 
program can only win! 



m 
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HUDSON DIGITAL ELECTRONICS INC. 

ANNOUNCING: 

HDE DISK USER LIBRARY 



The HDE Disk User Library has been estab- 
lished to facilitate the free exchange of general 
and specific routines for use on HDE disk 
based systems. 

All library programs are 'public domain', and 
are available for a modest copying charge to 
defray expenses. In most cases, the source 
and object programs together with instruc- 
tions for use are provided on diskettes sub- 
mitted by the requestor. 

HDE disk users are encouraged to submit 
programs for free distribution. A list of pro- 
grams currently available may be obtained by 
sending a S.A.S.E. to: 

Progressive Computer Software 

405 Corbin Road 

York, PA 1 7403 

717-845-4954 



JOHNSON COMPUTER 

Box 523. Medina, Ohio 44256 

(216) 725-4560 

PLAINSMAN MICROSYSTEMS 

Box 1712. Auburn. Ala. 36830 

(800) 633-8274 

LUX ASSOCIATES 

P.O. Box 315 

Chico. CA 95927 

(916)895-8751 (for SYM Versions) 



FALK-BAKER ASSOCIATES 

382 Franklin Ave, Nulley. NJ 071 10 

(201) 661-2430 

PERRY PERIPHERALS 

P.O. Box 924. Miller Place, NY 1 1 764 

(516) 744-6462 

PROGRESSIVE COMPUTER 

SOFTWARE 

405 Corbin Hd., York. PA 17403 

(717)845-4954 



AB Computers 

115 Easl Slump Road 

Montgomeryville PA 1 8936 

(215)699-8386 




Frustrated? One-board Micro-P's too expensive, Insufficient I/O 
line for full control, General purpose Micro an overkill, Fixed 
power supply requirements, costly development systems, if 
available, lack of USER flexibility? 

The MICROsport Microcomputer (MMC), in addition to being a 
complete microcomputer on a4Vi" X6" pc board, is the nucleus 
of a full hardware/software development system. Software can 
be developed for the MMC using any 6502-based computer. The 
In-Circuit Emulator (ICE) permits full MMC software/hardware 
debugging, then adding the EPROM Programmer Adaptor, any 
single + 5V EPROM, such as the Intel-type 2716 or 2758 can be 
programmed without additional equipment. The MMC is the 
ideal dedicated controller for use in control/monitor systems, 
laboratory experiments, timing, intelligent interfaces, security 
systems, and other applications requiring a low cost controller. 

Features 
CPU: MPS6503, RAM: 1 Kbytes, EPROM: Socket for Intel-type 
2716 or 2758. (User supplied), I/O: 2 MPS6522 VIAs: 32 I/O lines, 8 
edge detector/control lines, 4-16 bit counters, 8user-defined 
pins. Serial: 20 mA loop on-board, Interrupts: Power-on and 
manual reset, non-maskable and maskable, Power +5V 
regulated or 9— 20V regulated AC or DC, Also: ICs sockets, LED 
power on indicator, CMOS-RAM w/battery back-up optional. 
Options: In-Circuit Emulator; EPROM Programming Adaptor; 
MMC Development Model MMC/03D with zero insertion force 
sockets (3); EPROM Programming Services; and application 
software development. 

Prices: Kits from $89.00 Application units from $119.00 

MMC/03S: Complete development system including MMC/03D; 
MMC/03ICE; MMC/03EPA; and software $250.00 (offer good until 
Dec. 31, 1980). Checks or money orders; No C.O.D..'s. For further 
info write or call: 

R.J. Brachman Associates, Inc. 

P.O. Box 1077 

Havertown, PA 19083 

(215) 622-5495 



DISK DRIVE WOES? PRINTER INTERACTION? 
MEMORY LOSS? ERRATIC OPERATION? 
DON'T BLAME THE SOFTWARE! 





ISO-1 "VJ ISO-2 

Power Line Spikes, Surges & Hash could be the culpritl 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
•ISOLATOR (1SO-1A) 3 filter isolated 3-prong sockets; 
integral Surge/Spike Suppression; 1875 W Maximum load, 

1 KW load any socket $56.95 

•ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; 

(6 sockets total); integral Spike/Surge Suppression; 

1875 W Max load, 1 KW either bank $56.95 

•SUPER ISOLATOR (ISO-3), similar to ISO-1A 

except double filtering & Suppression .... $85.95 
•ISOLATOR (ISO-4). similar to ISO-1A except 

unit has 6 individually filtered sockets .... $96.95 
•ISOLATOR (ISO-5), similar to ISO-2 except 

unit has 3 socket banks, 9 sockets total . . . $79.95 
•CIRCUIT BREAKER, any model (add-CB) Add $ 7.00 
•CKTBRKR/SWITCH/PILOTany model 

(-CBS) Add $14.00 

PHONE ORDERS 1-617-655-1532 ■■■ 

/as*' Electronic Specialists, Inc. ^™" 



171 South Main Street. Natick, Mass. 01760 



Dept. MI 



MICRO Club Circuit 



Keep an eye on what MICRO is 
saying about your club. Let us know 
if anything has changed. We are 
endeavoring to print what we have 
and there is a substantial amount 
waiting to be printed. But, all will be 
presented eventually. If your club is 
not listed this month, it will be next. 
Or haven't you registered your club 
with MICRO? If not, please send for 
our easy registration form. This will 
then qualify your club for one year 
of MICRO, FREE! Your club's library 
should not be without every issue of 
MICRO. 

What can MICRO do for you? How 
can we better serve your interests? 
Jot down any suggestions you have. 
Ask your members and let us know. 
Address any suggestion, com- 
ments, up-dates, registrations, etc., 
to: 

MICRO Club Circuit 

P.O. Box 6502 
Chelmsford, MA 01824 

Dallas Apple Corps 

Meets on the second Saturday of 
every month from 2 to 5 pm at the 
Greenhill School. (14255 Midway 
Road, Dallas, TX) Membership at 
250. Monthly newsletter, Apple- 
Gram, $12.00 per year. Contact Club 
President: 

Bob Sander-Cederlof 
P.O.Box 5537 
Richardson, TX 75080 
"For Apple owners, to share what 
we have learned and to promote en- 
joyment of personal computing." 

PTC 

This West-German club consists of 
approximately 300 members who 
meet at Gutenbergstr. 20, D-6052 
Muehlheim, West Germany. They 
publish a bi-monthly informational 
newsletter. For more information 



contact: 

Dietmar Svertitt 

Gutenbergstr. 20 

D-6502 Muehlheim 1, 

West Germany 
"Exchanging programs and informa- 
tion." 

A.B.A.C.U.S. 

Meets on the second Monday of the 
month with a membership of 300. Ed 
Avelar is club President. Contact 
Larry Danielson for more informa- 
tion: 

5302 Camino Alta Mira 
Castro Valley, CA 94546 
"Apple owners in one group to share 
ideas. Apple Bay Area Computer 
User Society. " 

Micro Computer Club 

This club meets on the first and 
third Thursday of each month. The 
membership is continuing to grow, 
is at 55 now. Alfredo Buzali, Presi- 
dent. Contact: 

Alfredo Buzali 

fte de Quijate 5 

Tecamuchalco, Mexico 10 
"The only computer club in Mexico. 
Publishes a bulletin describing the 
past meeting." 

6502 Club/Copenhagen 

Meets once a month on various 
days. Membership about 100. Con- 
tact: 

Erik Skovgaard 

Nordlundsvej 10 

DK-2650 Hvidovre 

Denmark 
"General exchange of experience, 
review of systems, setup of a soft- 
ware library. Collective Administra- 
tion. Several subdivisions of in- 
terest groups." 

Forth Interest Group 

Meets on the fourth Saturday at 
Noon. Membership over 1200. Club 



address: 

P.O.Box 1105 

San Carlos, CA 94070 

Contact person: 

Jim Floumay Ancon 
17370 Hawking Lane 
Morgan Hill, CA 95037 

"Forth Dimensions, Publication at 

$12.00 per year, back issues $6.00." 

Philadelphia Apple Club 

Meets on the third Saturday of each 
month ath the Science Building at 
LaSalle College. Neil D. Lipson, 
President. Write to him at: 

29 S. New Ardmore Avenue 
Broomall, PA 19008 
"Apple Computer Programming and 
Hardware Discussion." 

Apple II Amateur Radio 
Computer Network 

"Apple owners who are amateur 
radio operators are checking into 
the Apple II computer network. The 
'net' meets every Sunday evening on 
14.329 MHZ in the 20-meter band. 
Communication is by upper side- 
band voice transmission. Actual 
time is 0100 UTC every Monday. 
(That is 6pm Pacific time Sunday 
night or 9pm Eastern time Sunday 
night.) Use of the Apple II in amateur 
radio applications is the prime 
topic, but for new ham radio users, 
there is help with specific program- 
ming and hardware questions. Net 
control is Jim Hassler, WB7TRQ in 
Cheyenne, Wyoming." 



De Vlaamse Minicomputerclub vzw 

Here is a club in Belgium. Write to 
Cornelis Bergmans, Club President 
for more information, at: 

Lambrechtshoekenlaan 

171 b6 

B-2060 Merksem 

Belgium 
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DISCOUNT DATA PRODUCTS 

BASF 5V DISKETTES: 
$34.50 PER BOX OF 10 

HIGHEST QUALITY DISKETTES AT A 
BARGAIN PRICE! LABELS AND WRITE- 
PROTECT TABS INCLUDED. 

VINYL DISKETTE HOLDERS 
FOR NOTEBOOKS 

THE IDEAL WAY TO STORE DISKETTES. EACH 
VINYL PAGE HOLDS TWO DISKETTES AND IN- 
CLUDES A POCKET FOR EACH DISKETTE'S LABEL. 
SAFELY KEEP UP TO 40 DISKETTES IN A SINGLE 
1" 3-RING NOTEBOOK! 

$4.95/SET OF 10 

MARKETING YOUR OWN SOFTWARE? 

DDP OFFERS DEALER & SOFTWARE HOUSE 

DISCOUNTS ON NOT ONLY THE ABOVE 

ITEMS, BUT ALSO THE FOLLOWING 

PRODUCTS: 

9" X 12" ZIP-LOCK BAGS FOR PACKAGING & 

DISPLAY OF SOFTWARE. 

CORRAGATED MAILERS TO SHIP TO USERS 
OR DEALERS! 

SEND FOR FREE INFORMATION AT: 

DISCOUNT DATA PRODUCTS 

P.O. BOX 19674-M 
SAN DIEGO. 92119 

(ADD $1.00 SHIPPING/HANDLING CHARGE TO ALL ORDERS.) 



PCS 



APPLE 








TAPE 


DISK 


One-Arm Bandit (32K. INT) 


995 


14.95 


Card Shark ( INT) 


7.95 


9.95 


H i - Roller (Applesoft) 


7.95 


9. 95 


Hi-Res Sub Game(32K) 


14.95 


19.95 


Adult Game Pa K ( 16K) 


7.95 


9 95 


TEMAI16 to 48K, specily) 


19.95 


24.95 


PCS Assembler (48K) 


34.95 


39.95 


PCS D i sa ssem bier 






(Our Assembler req'd) 


14.95 


16.95 


Pr ogr amme r Pak 







(Assemblers Disasmblr) 46.95 49.95 

AIM, KIM, SYM 

Programmer's AID $100.00 



We also carry the complete 
HDE, Inc. line ol products. 

CUSTOM PROGRAMMING 



Progressive Computer 

Software 

405 Corbin Road 

York, PA 17403 

(717)845-4954 



ACCOUNTING SOFTWARE FOR YOU 




GENERAL LEDGER 

If you are a business person who is looking for ultimate 
performance, take a look at this outstanding General 
Ledger package from Small Business Computer Systems. 

Our package features six digit account numbers, plus 
thirty-one character account names. We have ten levels of 
subtotals, giving you a more detailed income statement 
and balance sheet with up to nine departments. Either 
cash or accrual accounting methods may be used. The 
cash journal allows a thirty-three character transaction 
description and automatically calculates the proper off- 
setting entry. You may print the balance sheet and income 
statement for the current month, quarter, or any of the 
previous three quarters. Also, this year's or last year's 
total are included on the income statement, depending on 
the current month. 

There is virtually no limit on entries, since you may 
process them as often as you like. Two thousand (1,000 
from G/L. 1,000 from any external source) can be pro- 
cessed in one session. 



ACCOUNTS RECEIVABLE 

Sound business management requires you to keep 
up-to-date reports regarding the status of your accounts 
receivable. 

Now, from the same company that revolutionized ac- 
counting on the Apple II computer, with their conversion 
of the Osborne/McGraw-Hill General Ledger program, 
you may now obtain the Accounts Receivable package you 
have been waiting for. 

Our package allows you to assign your own alpha- 
numeric customer code up to six characters. Date of the 
last activity, as well as amounts billed this year and last 
year are maintained. This Accounts Receivable system 
maintains six digit invoice numbers, six digit job numbers, 
invoice amount, shipping charges, sales tax (automatically 
calculated), total payments as well as progress billing in- 
formation. You may enter an invoice at any time; before 
it's ready for billing, after you have billed it, and even 
after it's paid. This package also prints reports which list 
the invoices you have not billed yet, open items, paid 





items, and an aging analysis of open items. 

In the final analysis, making your bookkeeping easier is what our software is all about. With our General Ledger package 
you can format your own balance sheet and income statement. Department financial statements may be formated 
differently. You have complete freedom to place titles and headings where you want them, skip lines or pages between 
accounts and generate subtotals and totals throughout the reports — up to ten levels if you need them. Accounts 
Receivable is designed to provide you with complete up-to-date information. The program will print customer statements 
as well as post invoice amounts to any of the accounts maintained by our General Ledger package. These packages will 
support any printer/interface combination. General Ledger requires one hundred ten columns, Accounts Receivable 
requires one hundred thirty columns. 

SMALL BUSINESS COMPUTER SYSTEMS 
*■»**"• "•"■* 4140 Greenwood Available from your local Apple 

Individually JI80 .00 Lincoln, Nebnuka 68504 Dealer or conlacl SBCS 

Tognher ISJ0.00 (402)467-1878 
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Nth Precision Add & Subtract With 
Adjusted Processor Status 



Here is a general purpose utility which can be used with 
6502 programs which require addition and subtraction. 



Lawrence R. Golla 

21630 Mallard Ct. 

Brookf ield, Wl. 53065 



There must be hundreds of add 
and subtract routines of varying 
precision, and with the ability to 
utilize the "Branch" instructions 
after the call to the subroutines, but 
of the 6502 users there need by only 
one routine no matter what preci- 
sion is required. These subroutines 
eliminate the need for two or more 
add/ subtract subroutines to handle 
the appropriate precision or save ex- 
ecution time of addition/subtraction 
of small precision numbers that 
utilize subroutines of greater preci- 
sion, i.e. adding 16-bit numbers with 
a 24- bit add subroutine. 

Before calling the addition or sub- 
traction subroutines, five locations 
of page zero memory must be 
preset. Two bytes are used to store 
the address of the addend or sub- 
trahend, two bytes are used to store 
the address of the augand or mi- 
nuend, and one byte to store the 
degree of precision. 

Since the subroutines use the in- 
direct zero page mode, the ad- 
dresses stored in page zero must be 
stored as least signficant byte first 
followed by the most significant 
byte. Indirect addressing mode is 
used by the subroutines in place of 
storing data into page zero for two 
reasons: First, to prevent the 
necessity of moving data twice; into 
page zero and then out of page zero. 



Second, to conserve page zero 
memory especially when more than 
double precision is required. If data 
were stored directly into page zero, 
a 32-bit add would require eight 
bytes of page zero; twelve bytes of 
the program is modified to store the 
sum in another location. The 
subroutines replace the addend or 
subtrahend with the sum. If this is 
not desired, two more bytes of page 
zero memory are required to store 
the address of the sum. The pro- 
gram must be modified at locations 
$02E1 for addition and $0223 for 
subtraction to read 'STA (SUM), Y". 
"SUM" of course is equated to some 
page zero location. 

The degree of precision stored in 
page zero is 1* "number of bytes of 
precision" -1 or, 

= 1 byte precision 

1 =2 byte precision 

2 = 3 byte precision, etc. 

The Y register is loaded with this 
value to fetch and store the ap- 
propriate data byte(s). 

In addition the accumulator, X, 
and Y registers are not destroyed, 
but the processor status reflects 
any changes to the N,C,Z, and V 
flags due to the result of the addi- 
tion or subtraction. This allows the 
use of the branch instructions im- 



mediately following the call and 
utilizing the accumulator, X, and Y 
registers as preset prior to the call. 

Locations $0228 to $0251 adjust 
the processor status for "N" and 
"Z" flags. The "C'and "V" flags 
were adjusted previously by the ad- 
dition or subtraction. Each byte of 
the sum is exclusively OR'ed to ad- 
just the "Z" flag but, if this results in 
setting the "N" flag, the program 
forces the "Z" flag to be reset, i.e. it 
is assumed that -0 is undefined but 
more importantly the program 
handles the problem of having a 
sum = $0080. The "N" flag is ad- 
justed by exclusively OR'ing zero 
with the most significant byte of the 
sum.The status is then stored tem- 
porarily at location $0100 and 
retrieved oonly after the A, X, and Y 
registers are restored in order to 
avoid damaging the status. 



A source listing followed by a 
disassembler listing equates loca- 
tions $0010 and $0011 for the ad- 
dress of the addend or subtrahend; 
locations $0012 and $0013 for the 
address of the augand and mi- 
nuend; and location $0014 for the 
value of the precision. The sum of 
the result is stored indirectly 
through locations $0200, and the 
subtract subroutine is located at 
location $0215. 
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LDA 


#01 


;Set precision for 16 bits 


STA 


PREC 




LDA 


#00 


;0300 and 0301 is the address 


STA 


AEND 


;of the addend and sum 


LDA 


#03 


;0302 & 0303 is the address 


STA 


AEND+1 


;of the augand 


STA 


AGAND+1 




LDA 


#00 


;initially add + 10 


STA 


$0300 


;the constant 6 will be 


STA 


$0301 


;subtracted from the sum 


STA 


$0302 


;this minuend is at address 


STA 


$0304 


;$0304 & 0305 


LDA 


#$0A 




STA 


$0303 




LOOP LDA 


#02 




STA 


AGAND 




LDA 


#06 


;A & X reg. are pre loaded 


LDX 


#04 


;before going to subroutine 


JSR 


ADD 




BMI 


OUT 


;test after the call 


STA 


$0305 


;preloaded values made before 


STX 


$12 


;call sets up minuend. 


JSR 


SUB 




JMP 


LOOP 




BRK 




;exit here when sum is minus. 


BRK 







To Illustrate how to use the 
subroutines, a small program adds 
two numbers and subtracts a small 
number from the sum. The process 
Is repeated until the sum Is minus. 
The program can be expressed by 
the following formula; 

k n = k n -1 +10-6, ko^O 

The program shows hew to set up 
the addresses and precision values; 
shows registers can be preset 
before a call to the add/subtract 
subroutines so they may be used 
after the call; and shows how to test 
andand branch Immediately after 
the call from the subroutines. 

A disassembled listing ORG'ed at 
$0266 follows. At the "break" loca- 
tion $0300 can be checked to see If 
it is Indeed minus. This program 
takes a few seconds to run, which 
means the display will be blank until 
the "BRK" Is encountered. 



Nln PKLC1SION ADD/SUBTRAC; 



Afc.NL' 


= 


510 


AUAIVi.i 


= 


*i2 


KKfcU 


= 


*1<V 




*- 


*0200 


AUD 


PhA 

iYA 

PhA 
rxA 
pha 






LJJY 


PREC 




CLC 






L'L,D 






CLV 




LUU-i 


LJJA 


( AEND ) t Y 




ALU 


( AGAND ) t V 




ii'i'A 


( AEND ) t Y 




DEY 






br'L 


LOUPi 




BMi 


OUT 


BUB 


PHA 
TYA 
PHA 
TXA 
PHA 






LDY 


PREC 




ULU 






SEC 






ULV 




LUUP3 


LDA 


( AEND ) t Y 




BfcC 


( AGAND ) t Y 




STA 


( AEND ) , Y 




LihY 






SPL 


LOOPS 



ADDR'S 

ADDR'S 

i DEGREE 



OF 
OF 
OF 



ADDEND OR 
AUGAND OR 

PRECISION 



SUBTRAHEND 
MINUEND 



.: ADD 

; REPLACE ADDEND WITH THE SUM 

.'GET NEXT BYTE 
:GO ADJUST FLAGS 



; SUBTRACT 

; REPLACE SUBTRAHEND WITH THE SUM 

JGET NEXT BYTE 



UUT 


LDY 
LDA 


PREC 
#0 








EUR 

PhP 


LUUP2 


EUR 


<AEND)»Y 


; ADJUST Z-FLAG 


PLA 




PHP 










AND 




ani 


NZER 


i IF BIT 7=1 


RESET 












z 


-FLAG URA 


LGUK4 


DEY 














BMl 


DUTi 


* IF NO MORE 


BYTES STA 










t ADJUST N-FLAG PLA 




PLP 










TAX 




jnP 


L00P2 




• 




PLA 


NZtK 


PLP 










TAY 




UKA 


4**0 1 


? FORCE Z 


-FLAG TO pL ft 














RESET STA 




PhP 










L.UA 




onp 


LOOP* 


J GET NEXT BYTE 


PHA 


uu-ji 


PLA 




?GET STATUS 




LL'A 




AND 


**7F 


; RESET N 


-FLAG 


PLP 




STA 


$0100 


,*SAVE IT 






K'i'S 




iNY 




?GET MS OF ! 


SUM 


BRK 




LDA 


<AEND>,Y 


















AIM Disassembler Llstlna 


CK>*=3288 




822P 


,S5> 


8 HI- 


{."-*"■"■; $•; 


<'65 








8231 


38 


DEr 




3289 


48 


.ip 




3232 


38 


8HI 


323F 


8281 


88 


Tva 




3234 


:?ft 


PLP 




8282 


48 


PH8 




3235 


4C 


JV? 


3228 


; :"283 


88 


rm 




8238 


28 


PLP 




"-^84 


48 


PHP 




3239 


M 


3RP 


*~ :~~ d 


..;95 


84 


iL&T 


X'-f 


3238 


88 


PHP 




v287 


18 


8LC 




8238 


43 


■in? 


8231 


8288 




8LD 




■a •-; ~> £T 

- - ; & —■ r 


68 


PLP 




8289 


DC 


CLV 




8248 


b£ ^ 


PND 


#78 


828a 


81 


ldp 


Ci8>,V 


8242 




"•-. : : fA 


3138 


9298 


7-1 


8D8 


< 12 >/ V 


>7* v- jf BE 


C8 


INY 




828E 


91 


sia 


( 18 > ,■ V 


8246 


Bi 


LD8 


Clft>rV 


8218 




Pijry 




3248 


49 


E8P 


— -_•■ ■---' 


82ii 


18 


8PL 


y^y^i 


3248 


3a 


PHP 




8213 


38 


B>pt !; 


j.:i;J;JC; 


3248 


68 


PLP 




8215 


*T --• 


PH8 




8248 


:?a 


mm 


#88 


8216 


o g 


iva 




824E 


>T4 "V 
1' --■■ 


flh'H 


8138 


<9 i X i 


4-£ : 


P H h 




3251 


•_* V.' 


sia 


8188 




8P 


T>(8 




8254 


6§ 


PLP 




8219 


48 


ana 




8255 


aa 


rax 




3218. 


84 


LDY 


rf ^ 


3256 


68 


PLP 




8218 


D8 


8LD 




3257 


as 


T8Y 




821D 


"ft 


SE8 




32o3 


&$ 


PLP 




821E 


83 


cs v 




8259. 


8D 


STP 


8131 


;.*$ -~i H T 


P 4 


ldp 


<18>, Y 


82o8 


PD 


LDP 


8199 


8221 


~ .-: 


S88 


<12> - Y 


825F 


4;3 


PHP 




8223 


91 


sia 


<: 18 :< , y 


8268 


88 


LDP 


8181 


S ■•"" ii! o 


O Q 


DEV 




8263 


■28 


■PI P 




8226 


18 


BPt 


821F 


8264 


68 


?~~E 




8228 


a4 


LDY 


" 14 


8265 


38 


Bm. 




322S 


89 


im 


#98 


L'266 


rli? 


■-.DP 


#81 


3228 


•-'X 


E8P 




268 


85 


C T£i 


j.4 


yj y ^^ 


•7- O 


PHP 




■:26a 


ft 9 


DP 


#88 



#0 



#80 



J ADJUST TM-FLAli 
J PUT STATUS IN A 



JSAVE ONLY THE 
N-FLAG 
*0100 J MERGE WITH SAVED 

STATUS 
*0100 J SAVE IT FOR LATER 
J GET A,X»AND Y-REG 



♦0101 ; TEMPORARILY SAVE A 
•0100 pOET STATUS 

J PUT INTO STACK 
•OiOl fGET A 

J AND STATUS 



-. 268 


35 


.rift 


19 


•-26E 


P9 


L&fl 


#33 


::278 


85 


sra 


XX 


'272 


85 


~ T £J 


■■# T> 


8274 


P9 


[ia 


#38 


0276 


3D 


5TP: 


8388 


•:•:•?■ "7 o 

"-, -i. ■- J" 


S 7'i_ 


.T- 


3331 


327C 


3D 


I TP 


3382 


:27P 


8D 


S TP. 


9394 


.282 


89 


>. Da 


#9P 


"284 


8D 


3T8 


9393 


-287 


89 


L DP 


#92 


•;289 


CSC 


r Tft 


X'i 




H 9 


Zm 


#96 


028© 


ft 2 


.DM 


#84 


, 28F 


23 


JSP 


8288 


.; 292 


38 


- 7.-: r 


829P 


• 294 


3D 


rTP 


8385 


i <u jr* { 


36 


C Tv' 


•i O 


■ !~ s "t* y 


2 y 


TCD 


jTi *'-. -^- C; 


?298 


4C 


;hp 


9287 


?29F 


88 


8RK 




ciH-v 


8y 


8R?( 












■:->=8: 


_ '— • •-/ 






88 >/ 








?2a8 


89 


: RK 




•: ta >=8383 


: 8 t 


Sj? i>>7* 













MICROBE 


Here is 


a corrected version of the program GKEY and KSTAT have been relocated. 


listing for 


my article 


"Expanding the SYM-1...Ad- 




ding an j 


\SCII 


Keyboard' 


which appeared on Typos corrected on final version including label 


pages 5-7 


in the February, 


1980 issue 


of MICRO 'DISP' change to WAIT2 at location 206 (minor), m- 


(Number 21). Somehow the hex locations column correct object code fixed at line 222 to '20 47 8A' 


of this listing was not used for the article. The pro- from 'A5 FT. (Mneumonics were correct.) Last was 


gram is fully relocatable, but to do sc 


the 'INIT' pointer to KSTAT at line 240 was '40' now 'J9 


routine must refer to the addresses to which the which is correct. 
















Robert A. Peck 


0200 


20 


88 


81 


GKEY 


JSR 


SAVER 


SAVE REGISTERS 


0203 


AD 


01 


A8 




LDA 


A801 


GET PARALLEL ASCII 


0206 


FO 


24 






BEQ 


WAIT2 


UNLESS NONE i THEN BRANCH 


0208 


85 


Fl 






STA 


00F1 


STORE IT A WHILE 


020A 


A9 


10 






LDA 


£510 


DEBOUNCE CONSTANT 


020C 


85 


tF 






STA 


OOEF 


DEBOUNCE 


020E 


C6 


FO 




UAIT1 


DEC 


00F0 


SMALL LOOP 


0210 


DO 


FC 






BNE 


UAIT1 




0212 


C6 


EF 






DEC 


OOEF 


LARGE LOOP 


0214 


DO 


F8 






BNE 


UAIT1 




0216 


20 


03 


89 


SCANA 


JSR 


IJSCNV 


SCAN DISPLAY (USE SCANVEC) 


0219 


2C 


01 


A8 




BIT 


A801 


IS KEY STILL DOWN? 


021C 


30 


F8 






BMI 


SCANA 


WAIT FOR KEY RELEASE 


021E 


A5 


Fl 






LDA 


00F1 


KEY UPr PROCESS KEY 


0220 


29 


7F 






AND 


*$7F 


STRIP KEY STROBE BIT 


0222 


20 


47 


8A 




JSR 


OUTCHR 


SEND INTO DISBUF 


0225 


A5 


Fl 






LDA 


00F1 


GET IT AGAIN 


0227 


29 


7F 






AND 


*S7F 


STRIP IT AGAIN 


022A 


4C 


E8 


81 




JMP 


RLSXAF 


RETURN WITH ASCII IN A 


022C 


A9 


10 




WAIT2 


LDA 


S$10 


IF NO KEY* 


022E 


S5 


EF 






STA 


OOEF 


SCAN DISPLAY 


0230 


20 


03 


89 


SCANB 


JSR 


IJSCNV 


THRU SCANVEC 


0233 


C6 


EF 






DEC 


OOEF 


A NUMBER OF TIMES 


0235 


DO 


F9 






BNE 


SCANB 


THEN GO BACK 


0237 


FO 


CA 






BEQ 


GKEY 


AND LOOK AGAIN 


0239 


AD 


01 


A8 


KSTAT 


LDA 


A801 


READ ASCII IMPORT 


023C 


OA 








ASLA 




SHIFT MSB INTO CARRY 


023D 


60 








RTS 




RET» CFLAG=1 IF KEY DN. 


0240 


20 


86 


8B 


INIT 


JSR 


ACCESS 


UNPROTECT SYSRAM 


0243 


A9 


00 






LDA 


£00 


MODIFY 


0245 


8D 


61 


A6 




STA 


A661 


KEYBOARD 


0248 


A9 


02 






LDA 


*02 


INPUT 


024A 


3D 


62 


A6 




•STA 


A662 


VECTOR 


024D 


A? 


29 






LDA 


$39 




024F 


BD 


67 


A6 




STA 


A667 


KEYPRESS 


0252 


A9 


02 






LDA 


t02 


STATUS 


0254 


8D 


63 


A6 




STA 


A668 


VECTOR 


0257 


4C 


03 


80 




JMP 


WARM 


WARM ENTRY, MONITOR 

/ 



MOOR® a@Q©a 



Number 1 



BASIC Programmer's Toolkit 



TM 



. 



1. Microcomputers which can use product: The Basic Programmer's Toolkit ROM is for any PET or 

CBM computer, except the new 8032. 

2 System hardware requirements: One version comes on a small circuit board which plugs into the 

memory expansion port of original-model 4 & 8K PETs. The Basic 2.0 version is a single ROM chip which 

plugs into the expansion socket addressed at $B000. There are also special versions for owners of 

Skyles memory boards or Computhink disks. All versions require one cassette recorder for the 'Append 

command. 

3. System software requirements: Separate versions are available for Basic 1.0 & Basic 2.0 ('old' or 

'new' ). 

4 Product features: The features of the Toolkit are well known now, with over 10,000 sold. It works by 
addinq commands to PET Basic. The commands added include: APPEND — joins 2 programs from 
cassette- AUTOMATIC LINE NUMBERING; RENUMBERING of Basic lines; DELETION of a range of 
lines- a HELP command — which lists and highlights in reverse field the character in a line which caus- 
ed an error message; TRACE, which displays the last 6 line numbers executed in reverse field at the top 
right of the screen during a program run; STEP, which does the same, but goes to the next line only 
when you hit a key — or quickly when shift is held down; OFF, merely turns off trace and step; FIND, 
which finds every occurence of a token or characters in a program; and DUMP, which displays all non- 
array variables and their current values. 

5 Product performance: All the commands work and work well. It is one of the very few uncrashable 
programs I own. In the 9 months I have had the Toolkit, I have never lost a byte or a minute due to any 
Toolkit malfunction. Having it in ROM is a great convenience. It is also completely compatible with DOS 
support 4.0 (the wedge). 

6. Product quality: The quality of this program is excellent. It is effective, reliable, rapid and 
unobstructive in use. 

7 Product limitations: There is only one known bug in the Toolkit. Once the step mode is left, to do a 
dump of variables for example, it is not possible to continue from where you stopped. This is unhandy. 
However, the same effect can be arranged by inserting stop statements and using trace instead. (Then 
use 'find' to remove the stop statements.) 

The best-known problem is that Commodore decided to put both Word Pro I and Basic IV in the same 
ROM slot the Tool kit uses. There are switcher boards available for under $30, if you use Word Pro II. 
Basic IV will need its own Toolkit. Another minor gripe is that when the find or dump commands are 
directed to the PET printers, no carriage returns are sent, leaving the output squished together, 80 col- 
umns wide. A kill command, to remove the wedge into Basic would have been nice. 

I'm sure the Toolkit slows Basic slightly, though I don't notice the difference in normal use. The other 
wished-for command is the change command in Commodore's 'Basic-Aid' program (not available for 
sale, but some users have it.) It allows users to replace a word or phrase everywhere in a program at 
once. 

8. Product documentation: The instructions for the Toolkit are excellent. They are well written, usable 
and complete; they come in an attractive and durable manual. 

9 Special user requirements: The only special requirement is to link the Toolkit with Basic each time 
PET is turned on, with 'sysl 1*4096'. Pushing the ROM in is simple enough for most users to do it 
themselves. 

10 Price/Feature/Quality evaluation: I consider the Toolkit essential equiptment for all PET owners 
who write programs. It will quickly repay its cost in programming time saved. Even now, several months 
after its introduction, it has no real competition in features. (Ed's Note: Price: $50 for Basic 2.0 Version, 
others price depending on configuaration. 

11 Additional comments: The Toolkit may be ordered through many computer stores, or directly from 
PAICS, at 430 Sherman Avenue, Palo Alto, CA. 94306. 1 also found them quite helpful on the phone. Their 
number is (415) 327-0125. 

12. Reviewer James Strasma, 120 W. King Street, Decatur, IL 62521 

Trade Mark of Nestar Systems, Inc. 
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APPLE II SOFTWARE 
FROM ON-LIUm SYSTEMS 

PADDLE-GRAPHICS: 

The most powerful Hi-Res graphic development package available. Upper/lowercase maybe drawn on the Hi- 
Res screen in any size, direction or color. Pictures may be sketched and filled in with any of 2 1 colors ( must be 
seen to believe!). A shape may be constructed automatically from any object appearing on the Hi-Res screen. 

48K Applesoft/Machine Language 
*39.95/disk 

TABLET-GRAPHICS: 

All of the capabilities of PADDLE-GRAPHICS extended for use with APPLE'S GRAPHICS TABLET. 

48K Applesoft/Machine Language 
£49.95/dlsk 

HI-RES ADVENTURE #1: 

Your APPLE computer becomes your eyes and ears as you enter a spook)' old mansion in search of treasure. 
You direct it in English to move you through the house which is portrayed in full HI-RES GRAPHICS. You are 
in complete comtrol as vou open caabinets, smash walls and manipulate any items you might find. Danger is 
ever present as you find your friends being murdered one by one. This game will definitely challenge your 
imagination. French version available upon request. 

Machine Language for the Apple II or II plus 48K 

024.95/dtek 



SKEETSHOOT: 



A real-time I Ii-Res graphic simulation of the sport of skeetshooting. This game has all the sounds, action, and 
excitement of the real sport as well as die official firing positions. One to five players may compete. 

Machine Language for the Apple II or II plus 48K 

019.95/dlsfc 

TRAPSHOOT: 

One to five players compete at the sport of trapshooting. Fast action with many skill levels including adjustable 

shotgun spray make diis game a true challenge. 

Machine Language for the Apple II or II plus 4#K 

#14.95 disk 



COMBINATION: 

I II-RES ADVENTURE and SKEETSHOOT bodi on disk. 



Machine Language for the Apple II or II plus 48K 

087.50/tlfck 



Available at your local computer store. 

OX-LLYE SYSTEMS 

772 N. HOLBROOK ST. 

SIMI VALLEY, CA 93065 

805-522-8772 

Dealer Inquiries Invited f 

All orders shipped same day. 
Software n.ay I* ordered directly by ca.lin*AvrUin* 805-522-8772. Ordet* may bet (^IVCIIECK/NLVSTEKC IARC IE/VISA. Add* Shipping. 

California residents add 6% sales tax. 



Solar System Simulation with or without an 

APPLE II 



Here is a fascinating program which combines the 
graphics of the Apple with the Laws of the Universe to 
make a super demonstration. 



David A. Partyka 

1707 N. Nantuckett Dr. 

Lorain, OH. 44053 



There are unlimited things to do 
with a micro that has high resolu- 
tion graphics. Some of the more 
fascinating aspects are the simula- 
tion of objects around us. This arti- 
cle and program deals with the 
simulated motion of the first six 
planets of our solar system. 

Each planet moves In an elliptical 
orbit of varying distance from the 
sun. The closer the orbit to the sun, 
the less time it takes that planet to 
complete its orbit. Mercury, the 
closest planet takes 88 days, while 
Saturn the farthest of the first six 
takes 29 years. Because the planets 
move in elliptical orbits, their 
distance from the sun and orbital 
speed is constantly changing. Using 
Johann Kepler's (1571,1630) second 
law of planetary motion "The line 
joining the planet to the sun sweeps 
out equal areas in equal time", we 
can calculate the time it takes the 
planet to travel from point W to 
point R (figure 1). As can be seen, 
the line RV joining the sun S to the 
planet R will vary in length as the 
planet travels around its orbit. Being 
at its minimum distance at W, the 
planet must travel faster for the line 
RV to sweep an equal area as when 
the planet is at its maximum 
distance Z. 

To calculate the area SWR (figure 
1) we use the formula 

1.) Area =^.(H-e sin H). 

Variable a being the length of the 
major axis, b the length of the minor 



axis, e the eccentricity of the ellipse 
(c/a) and H (figure 2), the angle in 
RADIANS from the center of the 
ellipse to point q. Point q being on a 
circle of radius a, intercepted by a 
perpindicuiar line form the major 
axis going thru point R to the circle. 

By using Equation (1), we can 
calculate the number of days it 
takes the planet to travel any degree 
of angle from the area. By dividing 
the total area of the ellipse, (total 
area = pi ab), by the number of days 
to complete the orbit we have the 



area swept out per day. Rearranging 
equation (1), we get 

2). H-e sin H = area ' 2 

ab 
and a problem. The term H-e sin H 
can't be simplified for the angle H 
because of the term sin H. Given the 
daily area we could still calculate 
the angle H by using a loop routine 
until we got the correct answer, but 
this would considerably slow the 
simulation down. 

Instead I use the angle A (figure 1) 




Figure 1 
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at the other focus of the ellipse. By 
dividing 360 degrees by the number 
of days to complete the orbit we get 
the number of degrees per day for 
angle A. Using the equation 

3.) RV = 2 - (P/l + e (cos (180 - A))) 

we get the distance between the sun 
and the planet for each value of A. 
Using another equation 

4.) cos V1 = P - RV 
RV*e 

we get the angle V1 that the planet 
lies in relation to the sun (figure 2). 
The value P in equation (4) being a 
perpendicular line from the focus to 
the ellipse and equal to a(L-e 2 ). By 
increasing angle A at the daily rate 
we get the X,Y coordinates for each 
day and plot it on the screen. 



GEMINI 



120 
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its orbit. For Mercury, the fastest 
planet the error amounts to about 
.65 degrees and even less for the 
other planets. One more equation, 

5). cos H = a-RV 

ae 
is a link between equation (1) and 
equation (3) and can be used to 
calculate the error of using angle A. 

Now that the calculations are out 
of the way, let me describe this pro- 
gram. To keep the program small I 
chose only the first six planets. If 
you want to add the other three 
planets it can be done with little 
trouble, see Listing 1. The planets 
are plotted in order from the sun, 
Mercury, Venus, Earth, Mars, 
Jupiter, then Saturn. You can 
choose any combination of planets 
to display, from one to all six. The 
planets are assigned scaling fac- 
tors so its orbit will use the full plot- 
ting area when selected planets are 
used. 

You can plot the position of the 
planets or planet for any day, i.e. July 
8, 1980, or for any length of time 
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Using angle A also causes a pro- 
blem. Increasing angle A at a daily 
rate doesn't increase the area SWR 
(figure 1) at a daily rate. Even though 
there is an error, it isn't ac- 
cumulative. The difference returns 
to zero at four points in the orbit, 
two points being at the minimum 
point W and the maximum point Z. 
The other two points vary with ec- 
centricity but zero out before the V* 
position and after the 3 /< position of 
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• 300 
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Figure 3: This is an example of the display for all six 
planets for Aug 11, 1980 (224 days from Jan 0). 
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from when you choose, ie. 100 days 
starting at Oct 3, 1980. You can plot 
any length of time with any amount 
of time between plots, ie. plot 900 
days with 30 days beween plots. 
Then you can choose whether to 
plot single points, only one dot per 
planet, or continuous plots, each 
dot remains on the screen. Using 
single point plots it appears as if 
you are above the solar system look- 
ing down on the planets as they or- 
bit the sun. With continuous plots 
you can see the orbit for the length 
of time you choose to plot with the 
amount of time between plots. 
When doing a plot, the first plot is 
always the date you choose, then it 
continues with what you requested. 
Figure 3 is an example of plotting all 
the planets for Aug 11,1980, was 
the response for the number of days 
to plot with any number for days be- 
tween plots. The constellation 
names, planet names, and degrees 
don't show on the actual display but 
are shown here for reference. 

Figure 4 is an example of plotting 
the planets Mercury, Venus, and the 
Earth on May 29,1980 for 44 days 
with 4 days between plots. In this 
example May 29th was the first plot 
followed by the 11 plots for 44 days 
at 4 day intervals. Around the plot- 
ting area is a circle that has plots at 
10 degree intervals with a double 
plot at the zero point. Use this to get 
the longitude of degrees that the 
planet lies in relation to the sun. 

This program is set up for Jan. 0, 
1980 of it you prefer Dec. 31, 1979. 
To change the reference date, just 
add the number of days difference 
from Jan. 0, 1980 to the values W, ie. 
W1, W2, W3, etc. 

Some of the things you can do 
with this program are to determine 
the dates of superior conjunction, 
inferior conjunction, opposition, 
and greatest elongation. You can 
demonstrate the retrograde motion 
of the outer planets, whether a 
planet is a morning or evening ob- 
ject, or when two or more planets 
will appear close to each other in 
the sky. What else you can do 
depends oh your knowledge of 
Astronomy, the program is simple 
so any additions or changes you 
make should be easy. 

This program is written in floating 
point basic and uses the high 
resolution graphics subroutines. 
Since there are different types of 
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Figure 4: This is a display of the planets Mercury, 
Venus, and the Earth. This example is for continuous 
plots starting May 29th (day 150), for 44 days with 4 days 
between plots. 



APPLES, those with integer basic 
and others with floating point basic 
in ROM, how you use this program 
will depend on your system. Since I 
know my system I will describe what 
I had to do to it too. 

I have a 32K APPLE II with integer 
basic in ROM. My floating point 
basic is on cassette and loads from 
hex 800 to 29FF. My high resolution 
subroutines are also on cassette 
and load from hex COO to FFF. Page 
1 display for high res graphics hex 
2000-4000 overlaps my floating 
point basic, so I have to use page 2 
hex 4000-6000 for the display. Since 
floating point programs start 
loading at hex 2A00, large programs 
will overlap my page 2 display area 
so I had to change the program 
loading address from 2A00 to 6000. 
This is just beyond the page 2 
display area. 

On my system, after floating point 
basic is up and running I have to get 
into monitor and change hex loca- 
tions 6B, 6D, 6F, 71 from 2A to 60. 
Then I have to change three bytes 
starting at hex 6000 to zeros, 
("60000:00 00 00). If your floating 



point basic doesn't load from hex 
800 to 29FF then look at the article 
"Applesoft Program Relocation" 
page 19:49 of the Dec. 1979 issue of 
Micro. If you don't have that issue, it 
looks like some floating point 
basics load from hex 800 to 2FFF. If 
this is yours then change hex loca- 
tions 67 and 68, (*67:01 60). Then put 
zeros in the three bytes starting at 
6000 like above. Typing 0G then 
RETURN should get you back to 
floating point basic but don't do it 
yet. The high res subroutines also 
overlap the floating point basic, so I 
had to make changes there and load 
it in the area hex 3C00 to 3FFF. See 
Listing 2 for those changes. Now 
that I made all the changes in 
monitor, 0G RETURN gets me back 
to floating point basic where I load 
the program as usual. The first time 
I did this i was surprised it worked, 
but it did. I hope the configuration of 
your system will allow you to use 
this program without moving things 
around, but if you do these changes 
are easier than it looks. Saving the 
new high res subroutines on tape or 
disk will speed things up the next 
time you have to do this. 
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If you're wondering how accurate 
this program is, I used an almanac 
for 1980 that gave the dates of 
special events for the planets, and 
all 20 dates that I tried worked. The 
display that I got for each date cor- 
responded to what the almanac said 
was happening. I also have a book 
that gives the location of the 
planets 22 years ago, and the 
display I got was accurate enough 
not to make changes to the pro- 
gram. 

This program can still be used on 
micros without high res graphics. 
The plotting routines can be chang- 
ed to print the values RV, V1, and 
the X,Y positions. The distances bet- 
ween the Earth and other planets 
can also be calculated. If you have 
any questions or problems, don't 
hesitate to write, but please include 
a SASE or two stamps for postage 
and envelopes to guarantee a 
response. If there are a lot of ques- 
tions, I don't want to go broke on 
postage. 

One last word about the display. 
Using Figure 4 and the July 12th 
date, a line drawn form the Earth 
thru the planet Venus to the 10 
degree circle intersects at about 47 
degrees. This doesn't correspond to 
where Venus appears in the sky. 
Since the 10 degree circle doesn't 
have an infinite radius and is 
centered on the Sun and not the 
Earth, a line from the Sun parallel to 
the first should be drawn. This in- 
tersects the 10 degree circle at 
about 76 degrees. Looking a Figure 
3, 76 degrees is in the constellation 
Taurus, and corresponds to where 
Venus should appear on July 12th. 
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Dave Partyka works as a program- 
mer on an IBM 3031 OS system for 
the May Department Store Com- 
pany. He has been programming for 
three years, and he has been an 
operator for four years prior to that. 
Before he began work at the May 
Company he servde four years in the 
US Navy where he worked in data 
processing. 



Mercury 

Venus 

Earth 

Mars 

Jupiter 

Saturn 

Uranus 

Neptune 

Pluto 

Listing 1. 



Sidereal 
revolution 
in days 

87.969 

224.701 

365.256 

686.980 

4332.125 

10825.863 

30676.15 

59911.13 

90824.2 



Distance from Sun 

in million miles 

max. 

43.403 
67.726 



94.555 
154.936 
507.046 
937.541 



min. 

28.597 

66.813 

91.445 

128.471 

460.595 

838.425 



1859.748 1699.331 
2821.686 2760.386 
4551.386 2756.427 



Longitude of 

perhelion in 

degrees 

77.1 
131.3 
102.6 
335.7 

13.6 

95.5 
172.9 

58.5 
223.0 



Eccentricity 
.2056 
.0068 
.0167 
.0934 
.0478 
.0555 
.0503 
.0066 
.2548 



ADDRESS OLD NEW 



C01 
C65 
C7E 
CE3 
DOA 
D62 
D6B 
D93 
D9P 
DCD 
DD5 
DF6 
E02 
E3D 
EBP 
EC6 
EC9 
ED8 
EF1 



20 40 

0B 3B 

0C 3C 

0D 3D 

0D 3D 

0D 3D 

0D 3D 

0D 3D 

0D 3D 

0E 3E 

0E 3E 

0D 3D 

0D 3D 

0D 3D 

0C 3C 

0E 3E 

0C 3C 

0C 3C 

0D 3D 



Prom monitor load the high res 
subroutines in the normal location, 
COO to PPP. Make these changes then 
move the subroutines to 3C00 by keying 
3C00<C00.FFFM then RETURN. 

The value in location C01 was 
changed to use page 2 (4000-6000) 
instead of page 1 (2000-4000). 



OLD VALUES 
DEC. HEX. 

3072 COO 
3086 COE 
3780 EC 4 
3761 EB1 
3786 EC A 
3805 EDD 



HIGH-RES 
COMMANDS 

I NIT 

CLEAR 

PLOT 

POSN 

LINE 

SHAPE 



NEW VALUES 
DEC. HEX. 

15360 3C00 
15374 3C0E 
16068 3EC4 
16049 3EB1 
16074 3ECA 
16093 3EDD 



Listing 2. 



1 
2 
3 

4 
5 

10 

90 

100 

110 

150 

200 

205 

210 

220 

225 

230 
240 
245 
250 
255 



260 



NANTUCKETT DR. 
OHIO 44053 



REM SOLAR SYSTEM SIMULATION FOR THE APPLE II 

REM WRITTEN BY DAVE A. PARTYKA 

REM 1707 N. 

REM LORAIN, 

REM WRITTEN FEB. 1980 

GOTO 1000 

REM (100-110) POKE X AND Y VALUES FOR PLOTTING 

POKE 800,X-INT(X/256)*256:POKE 801,INT(X/256) 

POKE 802,Y:L=USR(16068):RETURN 

REM (200-300) CALCULATE THE X AND Y PLANET POSITIONS 

D=Z-INT ( Z/SRD) *SRD 

REM D IS FOR DAYS 

B=Q-(D/SRD*Q2) 

RV=A-(P/(1+E*C0S(B) ) ) 

REM RV IS THE RADIUS VECTOR OR DISTANCE FROM 

THE SUN TO THE PLANET 
V=PE/RV-EZ 
IF V=>1 THEN V=VL 
IF V=<-1 THEN V=-VL 
VI =-ATN(V/SQR(-V*V+l))+T 
REM VI IS THE ANGLE THAT THE PLANET 
LIES FROM THE SUN. THE POINT BEING AT 
THE RIGHT, INCREASING COUNTER CLOCKWISE. 
IF D SRD/2 THEN V1=Q2-V1 
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270 V1=V1+J 

280 X=C0S(V1)»RV:Y=-SIN(V1)»RV*FA 

290 X=X»TT+X1:Y=Y*TT+Y1 

300 RETURN 

900 REM (1000) DISPLAY PRIMARY PAGE, SET TEXT MODE 

1000 P0KE-16300,0:P0KE-16303,0 

1010 T=1.5708 

1020 Q=3. 14159265 

1030 Q2=6. 2831853 

1040 VL=. 99999999 

1050 PA=29/32 

1055 REM PA IS THE RATIO OF X TO Y TO PLOT A CIRCLE 

ON THE APPLE INSTEAD OP AN OVAL 
1060 X1=140:Y1=96 

1700 PRINT: PRINT: PRINT: PRINT -.PRINT 
1800 PRINT "DO YOU WANT TO DISPLAY " 

1810 PRINT: PRINT "THE SAME PLANETS AS YOUR LAST RUN" 
1815 PRINT -.INPUT "Y OR N ";A$ 
1820 PRINT:PRINT 
1830 IP A$="N" THEN 2000 
1840 IP A*<>"Y" THEN 1800 
1850 IP SlOO THEN 4000 
1855 PRINT: PRINT 

i860 PRINT: PRINT "YOU HAV'NT PICKED THE PLANETS YET" 
1870 PRINT: PRINT: PRINT 

2000 PRINT "CHOOSE THE PLANETS YOU WANT TO DISPLAY" 
2005 PRINT 

2010 PRINT "ENTER A 1 FOR YES, FOR NO" 

2011 PRINT 

2012 REM (2020-2079) GET SPECIFIC VALUES FOR EACH PLANET 

2013 REM S1=0RBITA1 PERIOD: Pl=Al«(l-El«El)/2 

2014 REM E1=ECCENTRICITY: Ul=Pl/El: Kl=l/El 

2015 REM A1=MINIMUM + MAXIMUM DISTANCE FROM SUN 

2016 REM J1=L0NGITUDE OF PERIHELION IN RADIANS 

2017 REM W1=DAYS FROM DEGREES TO PERIHELION FOR 1980 

2018 REM TT=SCALING FACTOR TO USE PULL PLOTTING AREA 
IF SELECTED PLANETS ARE DISPLAYED. 

2020 INPUT "DISPLAY MERCURY ";ME 

2021 Sl=87.969 

2022 El=.2056 

2023 Al=43. 403+28. 597 

2024 Pl=Al*(l-El*El)/2 

2025 KT=1/E1 

2026 U1=P1/E1 

2027 Jl=77.1*Q/l80 

2028 Wl=37.58 

2029 IP ME=1 THEN TT=2.3 

2030 INPUT "DISPLAY VENUS ";VE 

2031 S2=224.701 

2032 E2=.0068 

2033 A2=67. 726+66. 813 

2034 P2=A2*(l-E2*E2)/2 

2035 K2=l/E2 

2036 U2=P2/E2 

2037 J2=131.3*Q/180 

2038 W2=140.5 

2039 IP VE=1 THEN TT=1.5 

2040 INPUT "DISPLAY EARTH ";EA 

2041 S3=365.256 

2042 E3=.0167 

2043 A3=94. 555+91. 445 

2044 P3=A3*(l-E3*E3)/2 

2045 K3=l/E3 

2046 U3=P3/E3 

2047 J3=102.6*Q/l80 

2048 W3=-3 

2049 IP EA=1 THEN TT=1.05 

2050 INPUT "DISPLAY MARS ";MA 

2051 S4=686.980 

2052 E4=.0934 

2053 A4=154. 936+128. 471 

2054 P4=A4*(l-E4*E4)/2 

2055 K4=l/E4 

2056 U4=P4/E4 



Would you like to become 
A MICRO Dealer? 



MICRO is a quality 6502 
reference journal. Our cur- 
rent dealers report that hav- 
ing MICRO available for 
sales in their stores actual- 
ly helps them sell 
6502-based systems. 

We require a minimum of 
only ten copies per month, 
and we offer a standard 
trade discount. 

Besides the regular 
monthly magazine, we 
have other items available, 
such as The Best of 
MICRO, Volume 1, and The 
Best of MICRO, Volume 2. 
Volume 1 contains the 
significant articles publish- 
ed in the first six issues of 
MICRO; Volume 2 contains 
significant material from 
issues 7 through 12. The 
Best of MICRO, Volume 3 
which contains material 
from twelve issues (13-24) 
will be available in the fall 
of 1980. For those who 
want the complete works 
of back issues, we also of- 
fer All of MICRO. 

If you are interested in 
becoming a MICRO dealer, 
please write to: 

MICRO 

Box 6502 

Chelmsford, MA 

01824 



2057 J4=335.7*Q/l80 

2058 W4=289 

2059 IP MA=1 THEN TT=.6 

2060 INPUT "DISPLAY JUPITER ";JU 

2061 S5=4332.125 

2062 E5=.0478 

2063 A5=507. 046+460. 595 

2064 P5=A5*(l-E5»E5)/2 

2065 K5=l/E5 

2066 U5=P5/E5 

2067 J5=13.6*Q/180 

2068 W5=1604 

2069 IF JU=1 THEN TT=.19 

2070 INPUT "DISPLAY SATURN ";SA 

2071 S6=10825.863 

2072 E6=.0555 

2073 A6=9 37. 541+838. 425 

2074 P6=A6*(l-E6*E6)/2 

2075 K6=l/E6 

2076 U6=P6/E6 

2077 J6=95.5*Q/180 

2078 W6=2115 

2079 IP SA=1 then TT=.l 
3900 PRINT:PRINT:PRINT 

4000 PRINT:PRINT "DO YOU WANT":PRINT 

4010 INPUT "POINT (0) OR CONTINUOUS (1) PLOTS ";TY 

4015 IP TY <> AND TY <> 1 THEN 4000 

4020 PRINT: PRINT: PRINT 

4030 PRINT:PRINT "DO YOU WANT TO START AT":PRINT 

4040 PRINT "A SPECIFIC DATE (0) ": PRINT 

4050 INPUT "OR THE BEGINNING OF THE YEAR (1) ";DT 

4051 IF DTOO MSS DTOl THEN 4020 

4052 IF DT=1 THEN 4060 

4053 PRINT:PRINT:PRINT 

4054 INPUT "ENTER # OF DAYS SINCE JAN 1980 ";DE 
4057 Z1=DE 

4060 PRINT: PRINT: INPUT "ENTER # OF DAYS TO PLOT ";DN 

4070 PRINT: PRINT: PRINT 

4080 INPUT "ENTER # OF DAYS BETWEEN PLOTS ";DA 

4082 IF DAOO THEN 4800 

4084 PRINT: PRINT 

4086 PRINT "0 NOT ALLOWED: GOTO 4070 

4090 REM (4800) INIT HIGH RES, FULL SCREEN, PAGE 2 

4800 L=USR(15360) :POKE-16302,0:POKE-l6299,0 

4802 REM (4805-4860) PLOT REFERENCE POINTS AND OUTER 

10 DEGREE CIRCLE 

POKE 812,255 

X=140:Y=96:GOSUB 100 

X=141:Y=96:GOSUB 100 

X=248:Y=96:G0SUB 100 

FOR L1=0T0Q2STEP1/36*Q2 



4805 
4810 
4811 
4815 
4820 
4830 
4840 
4850 
4860 
4900 
5100 
5110 
5120 
5125 
5130 
5140 
5190 
5200 
5210 
5220 
5225 
5230 
5240 



X=X1+C0S(L1)»105.9 

Y=Y1-SIN(L1)*105.9*FA 

GO SUB 100 

NEXT LI 

REM (5100-5140) SET UP VALUES FOR MERCURY AND PLOT 

IP ME=0 THEN 5200 
A=A1:P=P1:E=E1:PE=U1:EZ=K1:SRD=S1:J=J1:W=W1:Z=Z1+W 

GOSUB 200:P1=X:G1=Y 

IF TY=1 THEN 5140 

X=Ml:Y=Nl:POKE8l2,0:GOSUB 100 

X=F1:Y=G1:M1=X:N1=Y:P0KE812, 255: GOSUB 100 

REM (5200-5240) SET UP VALUES FOR VENUS AND PLOT 

IF VE=0 THEN 5300 
A=A2:P=P2:E=E2:PE=U2:EZ=E2:SRD=S2:J=J2:W=W2:Z=Z1+W 

GOSUB 200:F2=X:G2=Y 
IF TY=1 THEN 5240 
X=M2:Y=N2:POEE8l2,0:GOSUB 100 
X=F2:Y=G2:M2=X:N2=Y:P0KE8l2, 255: GOSUB 100 



Advertise with MICRO 



MICRO offers its adver- 
tisers selective readership, 
effective advertising, 
relatively inexpensive 
rates, quality printing, 
regualr monthly publica- 
tion, short lead time, dealer 
circulation, and multiple 
exposure. 

We have recently put 
together a new Media 
Package containing all the 
informaton that you need 
to know about rates, sizes, 
and placement. 

Our Media Package also 
gives you information on 
contracts, negatives, color 
sepatations, insertions, 
typesetting, and artwork. 

If you have not yet receiv- 
ed our Media Package, we 
will send you one if you will 
write to us at this address: 

Advertising Dept. 

MICRO 

Box 6502 

Chelmsford, MA 01824 

Or call and ask for Cathi 
Bland, Director of Advertis- 
ing. She will be most happy 
to help you in any way that 
she can. Our phone number 
is: 

(617) 265-5515 



5290 
5300 
5310 
5320 
5325 
5330 
5340 
5390 
5400 
5410 
5420 
5425 
5430 
5440 
5490 
5500 
5510 
5520 
5525 
5530 
5540 
5590 
5600 
5610 
5620 
5625 
5630 
5640 
6000 
6100 
6200 
7000 
7050 



7100 
7200 



REM (5300-5340) SET UP VALUES FOR EARTH AND PLOT 
IP EA=0 THEN 5400 
A=A3:P=P3:E=E3:PE=U3:EZ=E3:SRD=S3:J=J3:W=W3:Z=Z1+W 

GOSUB 200:F3=X:G3=Y 

IF TY=1 THEN 5340 

X=M3:Y=N3:POKE8l2,0: GOSUB 100 

X=F3:Y=G3:M3=X:N3=Y:POKE8l2, 255: GOSUB 100 

REM (5400-5440) SET UP VALUES FOR MARS AND PLOT 

IF MA=0 THEN 5500 

A=A4:P=P4:E=E4:PE=U4:EZ=E4:SRD=S4:J=J4:W=W4:Z=Z1+W 

GOSUB 200:F4=X:G4=Y 

IF TY=1 THEN 5440 

X=M4:Y=N4:P0KE812,0:G0SUB 100 

X=F4:Y=G4:M4=X:N4=Y:POKE8l2,255:GOSUB 100 

REM (5500-5540) SET UP VALUES FOR JUPITER AND PLOT 

IF JU=0 THEN 5600 

A=A5 : P=P5 : E=E5 : PE=U5 : EZ=K5 : SRD=S5 : J= J 5 : W=W5 : Z=Z1+W 

GOSUB 200:F5=X:G5=Y 

IF TY=1 THEN 5540 

I=M5:Y=N5:POKE8l2,0:GOSUB 100 

X=F5:Y=G5:M5=X:N5=Y:POEE812,255:GOSUB 100 

REM (5600-5640) SET UP VALUES FOR SATURN AND PLOT 

IF SA=0 THEN 6000 

A=A6 : P=P6 : E=E6 : PE=U6 : EZ=K6 : SRD=S6 : J= J6 : W=W6 : Z=Z1+W 

GOSUB 200:F6=Z:G6=Y 

IF TY=1 THEN 5640 

Z=M6:Y=N6:POKE8l2,0:GOSUB 100- 

X=F6:Y=G6:M6=X:N6=Y:POKE8l2,255:GOSUB 100 

Z1=Z1+DA 

IF Z1>DE+DN THEN 7000 

GOTO 5100 

X=279:Y=190:GOSUB 100:INPUTA$ 

REM (7000) PLOT POINT 297 190 TO INDICATE END OF 

SIMULATION THEN WAIT FOR INPUT OF ANY CHARACTER 

TO START AGAIN. 

Z1=0:DE=0 

GOTO 1000 




Software and Hardware 
for Business Education 
Entertainment 

Recent Arrivals: 

A STELLAD TREK me definitive Hl-RCS COIOt VerjtOn Of me CtKJK 
startreK game Tnree different Khngori opponents Many 
command oerogatives f rom use of weapons 10 repair of oarages 

Need a8« Applesoft ROM On* S24.95 

cashuaster tne rront counter cashregistersvstem Records 
uo 10 100 transactions each oav Of sniff Accounting of aaltv 
money transactions and inventorv turnover. Holds 1000 inventor/ 
items Mas other oowerful options. Needs 48K Applesoft ROW 
dual disk drives, ao column orlnrer. 5250.00 

CASH DRAWER $100.00 . $10.00 Slipping 

For Software only, add $2 00 US'SS 00 Foreign snipping charges 
California residenrs aoo 6% Don t see what you want here 
THEN write or call tooav for your FREE software and hardware 
catalog 

- Jr ■ .....i., ■-.! .'-, viu UKirie«j'o««f<ii"ti' 




caroen Plata snooping Center 

9719 Reseda Blvd. Nortnnoge Calif 9iJ2a. oeot 7MI 

Telephone 12 1 J) M9.SS60 



[apple computer 

SOFTWARE 

ACCESSORIES 

SUPPLIES 



K 



ONE STOP SHOP 

Now you can 
purchase all of your 
Apple II items with an 
armchair convenience 
from one source. 
SUBSTANTIAL SAVINGS 
You receive discounts based 
on volume purchased. 
ULTRA-CURRENT 
You'll be the first to learn 
of new releases. 



o 



BUYERS, 

.GUIDE. 



800 ITEMS 



TO ORDER send $3.00 
You receive current BUYERS 
GUIDE and a certificate 
worth $3.00 off of your 
first purchase. 

Ooaier Inquiries tnviied 



WALLACE COMPUTERS, 

ACCESSORIES and SUPPLIES, inc. 

2513 N. Sheridan Rd. Peoria, Illinois 61604 

309-685-7876 



CRAE 

A fast Co-Resident Applesoft Editor for Applesoft pro- 
grammers. Now perform Global changes & finds to 
anything in your Applesoft program. Quote (copy) a range 
of lines from one part of your program to another. A fully 
optimized stop-list command that lists your program to 
the screen with no spaces added and forty columns wide. 
Append Applesoff programs on disk to program in 
memory. Formatted memory dump to aid debugging. 
Powerful renumber is five times faster than most 
available renumber routines. Auto line renumbering. 
CRAE need be loaded only once and changes your Apple 
soft program right im memory. 48K Apple II or Plus & Ap- 
plesoft ROM & Disk. 

MCAT 
MCAT is a binary program which creates a master catalog 
report. The first list is sorted by file names and the second 
by volume number with sectors used indicated. Provi- 
sions for duplicate volume numbers. 600 file names 
capacity on a 48K system. 200 for a 32K system. 
CRAE on disk with 16 page manual $19.95 

MCAT on disk with 10 page manual $14.95 

CRAE and MCAT on one disk with manuals $29.95 

One manual $2 Both manuals $3 

CRAE/MCAT manuals include instructions for making a 
backup copy. 
See your local dealer or send checks to 

HIGHLANDS COMPUTER SERVICES 

14422 SE132ND 

RENTON, WASHINGTON 98055 

(206) 228-6691 

Washington residents add 5.3% sales tax. Applesoft and 
APPLE are registered trademarks of APPLE Computers 
lnc - Ad run in July issue should have read '48K' memory 



Attention 

BARGAIN HUNTERS 

Receive Hundreds of Classified Ads 
Like These Every Month 



HARD DISK DRIVE Diablo Mod 31 
1.2 MByte std. density. Includes 
power supp. and cable, rack mount 
slides, amd manual. Excellent 
condition. MSO-O* Lj — \* 601 

mR^±-J> Tit: CPS Serial Y)3; 

T^ACM*"^ 1 * ? pr ,aces-Ei6 ht 
,M H parallel interf ^es-S\n 8 \e 



FOR SALE: Interdata (Perkin-Elmer) 
7/16 Mm, w.th 32KB core, front 

HS n t e L 5 °\ PWR SU PP'V hdES 

( m? P - ^ '" t ~ erfa - ces for Lp < 2 



^h characters-uses | 203 



a double width cno.-- 
mecb^sn^as^^^^^djsB^ 

SVSt QEATHKIT H-11/DEC LSI-11 
system, 32K Byte storage, reader 1 
punch, video terminal, complete 
! software. Cost $4500 assembled, 
$3500 kit. Like new. Sell for $2250. 
305-962-6677. 2058 Griffin Rd., Ft. 
Lauderdale, FL 33312. 



2031. --*—*! — c ^a>7. 



COMPUTER AUTOMATION ALPHA 
16 ; 16 k-word core memory. RTU 
PF-R Modified Mod. ASR-33 TTY| 
Manuals, utilities, assemblers : w 
many option boards - 16 bit l/u 
Driver, 16 bit I/O, Asynch modem 
contr. 64 bit output, 10 bit A/D - 
D/A Fairly complete documen- 
tation. Up and running in Fortran. 
Not much more than TTY at $10W 
Herb Sauer, 303-494-8724. 



FOR SALE: Heath H9 video ter- 
minal, excellent condition, $175 or 
L bgstoffer. You ship. (214) 962-4484 

memory board without memory 
(Kass^mbleo^or not working) ^ 

1 , Pet busine* r V '"^^o7sT 

n ata tn *n 6 n5«5 f , ho,ds "W 
IdS'^^P'etewS/ 60 each. 



COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software. 

Each ad-packed issue is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United Stales who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But, COMPUTER SHOPPER'S bargains won't be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation 

Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time for you to take advantage of bargain oppor- 
tunities. 

Have something to sell? A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part, component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it. 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy. 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items. Combining 
this with low individual ad rates — 10 cents a word — 




makes it the ideal place for buyers and sellers to com- 
municate. And, its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible. 

COMPUTER SHOPPER will work for you in other 
ways. too. If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you. 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 

Want to look us over first? We'll give you your first issue FREE 
and then bill you for the next 12. If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write "cancel" on the in- 
voice and return it. 

And, to let COMPUTER SHOPPER start working for you right now, 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want 

If you don't need to use the free classified ad now, use it anytime 
during your subscription. 

Subscription: $10/year. 12 issues plus your first free one. Bank 
cards accepted. Money back guarantee. 



The Nationwide Marketplace tor Computer Equipment 

CamPUTBR SHDPP5R 

P.O. Box F22 • Titusville, Florida 32780 
Telephone 305-269-3211 



JOYSTICK & EXPAN 
FOR YOUR APPLE II 



•* 



M 




.®. 



EVERY APPLE II OWNER SHOULD HAVE ONE! 




The PROGRAMMA JOYSTICK is an input peripheral that 
attaches to the APPLE, II Computer's game I/O Port. The 
JOYSTICK is a must for the serious game player, and it 
offers a degree of linearity not currently available with other 
joysticks. The ease of manueverability and the availability 
of the "functional" switches make the PROGRAMMA 
JOYSTICK a much needed enhancement to any APPLE II 
Computer System owner. The PROGRAMMA JOYSTICK 
comes completely assembled and tested. 



JOYSTICK 



$49.95 




A 



PANDA-PORT $59.95 



PROGRAMMA 
INTERNATIONAL, INC. 

3400 Wilshire Blvd. 

Los Angeles, CA 90010 (213) 384-0579 



The PROGRAMMA EXPANDA-PORT is a multi-port ex- 
pander for the game I/O port of any APPLE II Computer 
System. In addition to allowing expansion for up to six 
devices, the EXPANDA-PORT contains a built-in speaker 
that replaces the function of the Apple II 's speaker. The 
switch on the EXPANDA-PORT allow for the selection of 
the specific device desired and for the switching of that de- 
vice. No unplugging of any device connected to the 
EXPANDA-PORT is required. The PROGRAMMA EX- 
PANDA PORT comes completely assembled and tested. 



The PROGRAMMA JOYSTICK and EXPANDA-PORT are 
available on a limited basis through your local computer 
dealer. Apple II is a registered trademark of Apple Com- 
puters, Inc. 
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In this, the third issue of the Ohio Scientific Small 
Systems Journal in MICRO, we are happy to present the 
first user contributed article the Journal has ever 
featured. 

The first article, based on a contribution by Phil Lind- 
quist of Union Lake, Michigan, features a short but high 
performance word processor program and some insight 
into its operation. This high utility program may find use 
in your program library. We shall be happy to feature 
other contributions of this quality in future issues. 

The second article is on hardware ROM (Read Only 
Memory) configurations used in Ohio Scientific 
Systems. The article may be somewhat detailed in- 
technical aspects of the hardware, but if you need to 
know this information, there is no better way than get- 
ting into the details here. 

Reader suggestions on article content are welcome. 
Please submit suggestions or other contributions to: 

OHIO SCIENTIFIC, INC. 

Small Systems Journal 

1333 S. Chiliicothe Rd. 

Aurora, Ohio 44202 



MINIMICRO WORD PROCESSOR 

A simple word processor with great utility has been 
written by Phil Lindquist of Union Lake, Michigan. The 
program provides: 

(a) Resequencing of text lines, 

(b) Right and left hand justification of text, which gives 
the crisp look of aligned margins, 

(c) centering of titles and subheadings, and 
(d)by passing the text editor for selected lines. 

For many text editing tasks, high quality printed out- 
put can be obtained with few program constraints. It's a 
good introduction to word processing. 

INTIALIZATION 

The Minimicro program is listed in Listing 1. To ap- 
preciate its features, enter the program as listed. It will 
run on all 8" floppy 65D V3.X systems. For casette based 
systems, changes should be made for screen printng. 
C-1-P or C-4-P Cassette Systems: Change the following 
lines to: 

11010 AD=121:SN = 100:INC=10 
12040 REM DEVICE IS SPECIFIED HERE 
12160 AD = 121 
12500 PRINT.TAB(LM); 0$: GOTO 12200 

C-1-P or C-4-P MF Systems: Change the following lines 
to: 

11010AD=12921:SN = 100:INC = 10 
12040 REM DEVICE IS SPECIFIED HERE 
12160 AD= 12921 
12500 PRINT,TAB(LM);0$:GOTO 12200 

If you wished to use a line printer, the form of the 
original listing shows the method. Line 12500 is the only 
text output. With these minor changes, let's look at the 
operation of the program. 



USE: 

The text editor program is invoked by the BASIC com- 
mand 

RUN 10000 
at which time you are given the choice of 

RENUMBER/LIST/EXIT? 
For any other choice, we'll need some text to test the 
program. Therefore, before you run the program, enter 
your text with sequential line numbers. Text will be in- 
dicated by a quote followng the line number, such as 

10 "NOW IS THE TIME 
To have a sequence of text renumbered, such as 

10"NOWISTHETIME 

20"FOR ALL GOOD 

30"MEN TO AID 
we again type 

RUN 10000 
and respond to the text editor's selection list by 

RENUMBER 
The text is now resequenced, starting with statement 
100, incrementing statement numbers in steps of 10. 
Program statement 11010 may be modified to permit 
other starting statement numbers (SN) than 100 and 
other incrementing steps (INC) than 10. 

The final feature to be examined is the selection LIST 
in the text editor's selection list. Within LIST, four sym- 
bols are used to control the text editor. These symbols 
are 

(a)the quotes("), following a statement number, in- 
dicate that thestatement is text 

(b)the slash (/) character, immediately following the 
quotes, indicates that the line is to be centered within 
the allowed margins. An example of this feature would 
be 

10"/TITLE 

(c)the period (.) character, immediately following the 
quotes indicates that the line is to be listed without the 
use of text editor text alignment. 

(d) the apostrophe (') character, when typed twice in 
succession, will be printed as the quote (") symbol. This 
convention was necessary because we have already us- 
ed the quotation mark to delimit text. 

Lets's type some text and see how the editor 
responds. First, some sample text might be 

100"/TITLE 

110"NOW IS THE TIME 

120"FOR SEVERAL GOOD 

130"PERSONS WHO 

140". DO NOT EDIT THIS 
Request the editor's service by typing 

RUN 1000 
and respond with 

LIST 
it will request input with 

FIRST LINE, LAST LINE? 
Respond with 

100,140 
(Note: 0,9999 will LIST all text) 
The editor will then ask 

LEFT MARGIN, RIGHT MARGIN? 
Since all text lines were less than 20 characters long, I 
chose a left margin of 10 spaces and the right margin 20 
spaces later, as 

10.30 
The resulting text appears as 

TITLE 
NOW IS THE TIME 
FOR SEVERAL GOOD 



CALL 1-800-321-6850 TOLL FREE 



SMALL SYSTEMS JOURNAL 



PERSONS WHO 
DO NOT EDIT THIS 

The title is centered midway between columns 10 and 
30. The next two lines have spaces added to pad them to 
fit exactly between the column 10 and column 30 
margins. Text line 130 is quite short, so the text editor 
does not adjust the text margins. Finally, the last line, 
140, will not be edited, because the leading period caus- 
ed the editor to ignore the statement. 

Program Method: 

Let's take a look at the method which was used in this 
program to align margins. The line width, right margin 
minus the left margin, is computed in line 12150. If the 
present line is greater in length than the computed line 
width (between margin spacing), (line 12420), then the 
line is printed "as is". Only in the cases for text line 
length in lines 12430 to 12480, is the text line is padded 
out with blanks. Because the line is justified going from 
right to left, we don't add padding on top of padding, giv- 
ing uneven spacing. This scheme distributes the spaces 
evenly across the line, in between words. Using 
repeated passes through the program to add one space 
between words, until margins are aligned, gives even 
spacing. 

In the case of titles to be centered, statement 12490 
subtracts the character string length to be printed from 
the inter-margin width. Since this is the number of blank 
spaces needed, a character string of half this length, fill- 
ed with blanks is placed in front of the title to be printed. 

Some useful information can be gained by looking at 
1 the method used to address text. The text is stored se- 
quentially as a part of the Minimicro program. The first 
two locations (bytes) at the start of each line of text con- 
tain the address of the next line of text. In the Minimicro 
program, the variable AD starts off pointing to the start 
of the Basic program, and therefore to the text to be 
edited. Each time we examine a new line of text, the 
value of AD is updated by the latest value of the program 
pointer to the text. When we reach the last line of text, 
two bytes, of value 00, are found in the first two bytes of 
that line of text (placed there by the BASIC editor); this 
will label the line as the last line of text. Each line of text 
has the end of the text line delimited by a (not the 
ASCII symbol for a 0). The use of the end of text line 
delimiter and the end of text delimiter permit easy tests 
for word processing. 

With these insights into a very useful program con- 
tributed by Phil Lindquist, you may see ways to incor- 
porate this program into your programs or library. 
Thanks Phil! 

Listing 1 

10000 PRINT ' 'Minimicro Word Processor, Number 2' ' 

10010 PRINT ' 'Program by P. Lindquist, Hay 1980' ' 

10020 PRINT 

10030 PRINT 

10040 INPUT "RENUMBER/LIST/EXIT" ;A$: PRINT 

10050 IF LEFT$(A$,1) = "R" ' THEN 11000 

10060 IF LEFT$(A$,1) = "L' ' THEN 12000 

10070 IF LEFT$(A$,1)=' 'E" THEN STOP 

10080 GOTO 10020 

11000 REM *** RESEQUENCE 

11010 AD= 12665: SN=100: INC=10 

11020 AD=PEEK(AD)+256*PEEK(AD+1) 



11030 LN=PEEK(AD+2)+256*PEEK(AD+3) 

11040 IF LN > 9999 THEN 10020 

11050 BT=INT(SN/256) : POKE AD+3,BT 

11060 BT=SN-256«BT: POKE AD+2.BT 

11070 SN=SN+INC 

11080 GOTO 11020 

12000 REM **» JUSTIFIED LIST 

12010 PRINT ' 'LINE NUMBER RANGE' ' 

12020 INPUT "FIRST LINE, LAST LINE' ' ;FL,LL 

12030 PRINT 

12040 INPUT ' 'DEVICE NUMBER FOR OUTPUT' ' ;DV 

12100 REM 

12110 REM USE THIS AREA FOR SPECIAL OUTPUT INIT IF REQUIRED 

12120 PRINT 

12130 INPUT ■ 'LEFT MARGIN, RIGHT MARGIN' ' ;LM, RM 

12140 PRINT 

12150 RM=RM-LM: IF RM < 1 THEN 10020 

12160 AD=12665 

12200 AD=PEEK(AD)+256*PEEK(AD+1) 

12210 IF AD=0 THEN 10020 

12220 BP=AD+4 

12230 0$= " " 

12240 LN=PEEK(AD+2)+256*PEEK(AD+3) 

12250 IF LN > LL THEN 10020 

12260 IF LN < FL THEN 12200 

12270 IF PEEK(BP)=34 THEN BP=BP+1 

12300 CH=PEEK(BP) 

12310 IF CH=0 THEN 12380 

12320 0$=0$+CHR$(CH) 

12330 LN=LEN(0$) 

12340 IFLN < 2 THEN 12360 

12350 IF RIGHT$(0$,2) = ""' 'THEN 0$=LEFT$(0$,LN-2)+CHR$(34) 

12360 BP=BP+1 

12370 GOTO 12300 

12380 LN=LEN(0$) 

12390 IFLEFT$(0$,1) = "/' 

12400 IFLEFT$(0$,1) = " . ' 

12410 IF 10«LN< 7*RM THEN 12500 

12420 IF LN > =RM THEN 12500 

12430 FOR I=LN TO 1 STEP -1 

12440 IF MID$(0$, I, ) <> " " THEN 12480 

12450 0$=LEFT$(0$,I)+" "+RIGHT$(0$,LN-I) 

12460 LN=LN+1 

12470 IF LN > =RM THEN 12500 

12480 NEXT : GOTO 12430 

12490 LN=INT((RM-LN)/2): FOR 1=1 TO LN: 0$=" ' '+0$: NEXT 

12500 PRINT #DV,TAB(LM);0$: GOTO 12200 



Ohio Scientific System ROMS 

Most users of Ohio Scientific computers are aware 
that the C1P, C4P, and C8P systems all contain 8K 
BASIC in ROM (Read Only Memory). What many users 
are unaware of is that, in addition to the BASIC ROMs, 
there is also a separate ROM used for the system 
monitor code. Additionally, all floppy and hard disk bas- 
ed systems also contain a system and "boot" ROM. The 
boot code in ROM is used to bring up the system from 
disk. 

This article will cover two main topics. First, an over- 
view of the general ROM decoding scheme will be 
presented. In the second section, the content and use of 
the four currently available Ohio Scientific system 
ROMs will be discussed. 

ROM Decoding 

The system ROMs used in Ohio Scientific computers 
are all 16384 bit parts. They are normally referred to as 



THEN0$=RIGHT$(0$,LN-1) :GOT012490 
THEN 0$=RIGHT$(0$,LN-1) :GOT012500 
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WP-6502 

a very fine word processor 




Tape(C1.C2.C4) .. 


..$75 


8" 65D & 65U . . 


.. $125 


5"Disk(C1,C2.C4) . 


..$75 


Descriptive 




8" Disk for B5D 


..$75 


Brochure 


. FREE 



All ABOUT 

OSI 

BASIC-IN-ROM 



BASIC and MONITOR REFE- 
RENCE MANUAL for Ohio Sci- 
entific Microsoft BASIC — 
IN— ROM Version 1.0 Rev. 3.2 
Complete, Concise (not a 
tutorial), Accurate and Detail- 
ed. All statements and com- 
mands. Looping. Tapes: 
BASIC and homemade. Binary 
representation of floating 
point. Storage of source code 
and variable tables above 
$0300. Maps of pages 
$00,01,02. Routines in 
$A0OO-BFFF. Line by line 
description of pages: $8.95 
postpaid. Send a check, or 
COD ($1.10 fee). 

Dealers' inquiries invited. 




Dwo Quong Fok Lok Sow 

Box 41 96, Grand Central Station 

New York City, N.Y. 10163 

(212)685-2188 
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E.H. Carlson 

3872 Raleigh Drive 

Okemos, Ml 48864 
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OSI SOFTWARE FOR OSI OSI 

We Have Over 100 High Quality Programs For Ohio Scientific Systems 
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ADVENTURES AND GAMES 

Adventures - These interactive fantasies will fit 
in 8K! You give your computer plain english 
commands as you try to survive. 

ESCAPE FROM MARS 

You awaken in 3 spaceship on Mars. You're in 
trouble but exploring the nearby Martian city 
may save you. 

DEATHSHIP 

This is a cruise you won't forget - if you survive itl 

Adventures $14.95 Tape or 534" Disk 
$15.95 8" Disk 

STARFIGHTER $5.95 

Realtime space war with realistic weapons and a 
working instrument panel. 

ALIEN INVADER 6.95 (7.95 for color and sound) 

Rows of marching munching monsters march on 

earth. 

TIME TREK $9.95 

A real time Startrek with good graphics. 

BATTLEPAC $17.95 

For the battlebuff. Contains Seawolfe, Starfighter, 
Bomber and Battlefleet. 



And lots, lots, tots more! 




TEXT EDITORS FOR ALL SYSTEMS!! 

These programs allow the editing of basic 
program lines. All allow for insertion, deletion, 
and correction in the middle of already entered 
lines. No more retyping. 

C1P CURSOR CONTROL (Text Editor) $9.95 

Takes 166 bytes of RAM and adds, besides text 
editing, one key instant screen clear. 

C2P/C4P CURSOR $9.95 

Takes 366 BYTES to add PET like cursor 
functions. Enter or correct copy from any location 
on the screen. 

SUPERDISK $24.95 for 5" $26.95 for 8" 
Has a text editor for 65D plus a great new 
BEXEC*. a renumberer, search, a variable table 
maker and Diskvu - lots of utility for the money. 

We also have 25 data sheets available such as: 

IMPLEMENTING THE SECRET SOUND PORT ON 

THE CI P $4.00 

HOW TO DO HIGH SPEED GRAPHICS IN BASIC 
$4.00 

HOW TO READ A LINE OF MICROSOFT $1 .00 

JOYSTICK INSTRUCTIONS AND PLANS FOR 

C1 P $3.00 

SAVING DATA ON TAPE $4.00 



THE AARDVARK JOURNAL 



bimonthly journal of how to articles 



Our $1 .00 catalog contains a free program listing, programming hints, lists of PEEK and POKE locations and other stuff that OSI 
forgot to mention and lots more programs like Modem Drivers, Terminal Programs, and Business Stuff. 

Aardvark Technical Services 1 690 Bolton, Walled Lake, Ml 48088 (31 3) 624-631 6 
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Interface of 0SI-C1P With Heath Printer 



This article provides all of the hardware and software 
information that is required to implement and utilize this 
combination. 



William L. Taylor 

246 Flora Rd. 

Leavittsburg, OH 44430 



Most personal computer users 
want to attach peripherals to their 
machines. These peripherals take 
the form of disk drives, cassette 
tape systems, printers, etc. The 
cassette drive, the disk and the 
printer usually have the first priority 
over other peripherals. Most per- 
sonal computers have a cassette 
systems as part of the I/O in the 
system, so a printer or disk drive is 
the user's next choice. 

In my case the first choice 
peripheral was a printer. This was 
needed to aid me in article 
writing and to provide quality pro- 
gram hard copy listings for these ar- 
ticles. I researched the features of 
the available printers on the market 
for cost effective comparisons, and 
decided to purchase the Heath H14 
for use with my Ohio Scientific C1 P. 

The purpose of this article will be to 
give the reader and the user of the 
OSI C1P the needed information for 
hardware and software implementa- 
tion to allow the C1P and H14 to 
operate as a system. For this, there 
are some hardware additions that 
must be included on the C1P's cir- 
cuit board and one modification to 
the H14 printer. These additions and 
modifications will be explained in 
this article. 

The first of these steps will be the 
RS232C addition that is needed for 
the C1 P. The modifications to follow 
have been included in the author's 
system and the proof is in the 
listings of the programs in this arti- 
cle and other articles that have ap- 



peared in Micro. But I must remind 
the reader that when one does the 
modifications to the C1P and printer, 
the warranties could be broken. 

RS232 Implementation on the C1P 

The Challenger C1P model 600 
board can be configured for an 
RS232 output only for a printer. This 
port does not come with the com- 
ponents installed on the circuit 
board; the user must install them or 
have a dealer do it for him. The com- 
ponent count for this implementa- 
tion is rather small in number, and is 
easily done. To have an RS232 
printer port, you need only four 
resistors, one transistor, and a 25 
pin female plug for the printer cable 
male connector. Also a 12 pin Molex 
connector to mate with the 12 pin 
Molex connector on the C1P's cir- 
cuit board. These components can 
be easily purchased from most local 
electronics parts stores, or your 
local Radio Shack parts counter. 

To begin the parts placement, be 
sure to remove the plug from the 
wall outlet. Next, remove the 
cabinet bottom. To do this, place 
the C1P with the top down on a soft 
surface. This will prevent damage 
to the surface of your C1 P's cabinet. 
Remove the screws that hold the 
bottom in place, and remove the bot- 
tom cover by lifting it straight up- 
ward. This will expose the C1P' 
model 600 board and power supply. I 
found it best when doing this to 
remove the power supply leads from 
the model 600 board. If you do this, 
be sure to mark the points where the 



leads were soldered to the 600 
board. Unsolder the the green, the 
black, brown and red leads from the 
circuit board. With these leads 
disconnected, the board can be 
completely removed from the 
cabinet for inspection and ease of 
installation of new components. To 
remove the 600 board, turn the C1P 
over to expose the keyboard. 
Remove the screws placed around 
the keyboard. (These are the only 
screws that hold the keyboard in 
place.) 

With the keyboard placed on your 
workbench with the components and 
keyboard up, locate the page in your 
C1P' Users Manual that shows the 
component overlay diagram. This is 
the drawing that shows the complete 
board, and has the components 
drawn at their proper location. With 
the keyboard near you, the RS232 
output port component location will 
be at the far end of the board. In the 
parts placement drawing, locate 
transistor Q1. Using the general cir- 
cuit board trace drawing in Figure 1, 
and the schematic of Figure 1, install 
the extra components that make up 
your RS232 output port. These com- 
ponents are: Q1, R72, R63, R64, and 
R65. The IC.U62, is already installed 
on the board. There are no jumpers to 
add on the board, but one of the 
traces will have to be cut. This trace 
is marked W on the overlay drawing, 
and in the schematic of Figure 1. 
This trace is located near the end of 
R64 that goes to pin 7 of the circuit 
board connector J3. The trace W, is 
located on the foilside of the circuit 
board. Use a sharp knife such as an 



August 1980 



MICRO — The 6502 Journal 



27:47 



Exacto to cut the trace. Be sure that 
the trace is completely cut and there 
is not any contact between the two 
ends. The next step in the modifica- 
tion of our C1P for the RS232 inter- 
face will be to add the 25 pin female 
D connector which will mate with 
the 25 pin male plug on the connec- 
ting cable from the printer. This con- 
nector will be mounted in the rec- 
tagular hole at the rear of the CIP's 
cabinet. But first, the connecting 
wires should be installed on the 
female connector and to a 12 pin 
Molex male connector. The 12 pin 
Molex connector will be used to 
mate the 12 pin female connector on 
the 600 circuit board at J3. Follow 
the schematic in Figure I, connect 
and solder a 12 inch stranded wire 
from pin I of the 25 pin female con- 
nector to pin I of the 12 pin Molex 
male connector. Similarly, connect 
another 12 inch stranded wire from 
pin 17 of the 25 pin connector to pin 
7 of the 12 pin Molex connector. 
Finally, connect a 12 inch stranded 
wire from pin 3 of the 25 pin connec- 
tor to pin 2 of the Molex connector. 
This completes the wiring of the 
plugs. 



The next step is to install the 25 
pin female D connector in the rec- 
tangular hole at the rear of the 
C1 P'scabinet. You will need two 6/32 
screws and nuts for this step. 

Check your wiring against the 
schematic of figure 1, the parts 
overlay in the C1P User's Manual, 
and the parts placement trace draw- 
ing in figure 1 for correctness. Check 
closely the printed circuit board foil 
side for solder bridges. Be sure Q1 is 
at the correct location and placed 
properly on the board. That is, be 
sure the emitter, the base, and the 
collector leads are correctly soldered 
to the circuit board. Reconnect the 
power leads if they were discon- 
nected. This completes the parts in- 
stallation. The circuit board can now 
be re-installed in the CIP's cabinet 
with the screws previously removed. 

Locate the position of J3, pin 1. 
Plug in the 12 pin Molex male connec- 
tor into J3. Re-install the 6 pin Molex 
connector at J2. Be sure that the 
plugs are properly orientated before 
they are plugged into their respective 
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socket. Re-solder the power leads if 
they were removed at the beginning 
of the modification. Replace the bot- 
tom cover on the C1P with the 
screws that were previously remov- 
ed. This completes the parts installa- 
tion on your C1P. 

Modifying the H14 and Bringing Up 
the System... 

As previously stated, the H14 
Printer will require one simple 
modification. This consists of 
locating a wire, cutting it, and at- 
taching a short wire to the minus 12 
volt power supply in the H14 Printer. 
Locate the black/red wire going to 
pin 8 of the main circuit board con- 
nector for the I/O cable. Cut the 
black/red wire about one inch from 
the 15 pin female connector. This 
should be done so that the wire 
could be re-attached in the event that 
the printer is sold in the future. 

Using a short piece of small 
stranded hookup wire, connect one 
end to the black/red wire going to the 
I/O cable. Solder the connection. At- 
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tach the other end of this wire to the 
negative end of capacitor C113 on 
the main circuit board in the H14 
printer. This capacitor is located just 
to the rear of the high temperature 
pot, R195. This completes the 
modification to the printer. Next, set 
the baud rate switches for the RS232 
interface operation. The jumpers are 
located at locations J1 14 to J1 15 and 
J1 10 to J109. This configures the H14 
for RS232 input. 

At this point you should have a 
working RS232 output port on your 
C1P, a plug that will mate the C1P 
and the plug from the H14 printer. 
Plug the printer cable into the female 
connector on the C1 P. Connect your 
Monitor and cassette cables and 
place the power cables for the printer 
and the C1 P into the wall outlet. Turn 
both units on. Reset the C1P. Bring 
up BASIC. Type in a BASIC program 
line such as, 10 PRINT " THIS IS A 
TEST OF THE C1P AND THE H14 
PRINTER." Place the H14 ON-LINE. 
Place the C1P in the SAVE mode. 
When you hit a carriage return the 
H14 printer should respond with the 
word SAVE followed by OK. Next, 
type RUN followed by a carraige 
return. The H14 should respond with 
the message that was entered as 
your BASIC program line. If all went 
well, you now have working system 
using the Ohio Scientific Challenger 
C1 P and the Heath H14 printer using 
the RS232 port on the C1P. 

General System Description 

The RS232 output port on the C1 P 
services the H14 Printer in the same 
manner as the Cassette port ser- 
vices the cassette recorder. That is, 
when the user wishes to save a pro- 
gram on tape the key word SAVE 
followed by a carraige return and 
then the keyword LIST and carraige 
return. The program of interest will 
be listed out and written on tape. 
With the RS232 port and the H14 
printer connected and On-Line the 
program will be written on paper for 
a hard copy record. 

If the user wants either a hard 
copy or a tape, it is a simple method. 
Either use the cassette recorder for 
tapes or the printer for the hard 
copy. The H14 can be used in the 
RUN mode of a BASIC program. This 
is accomplished by placing the H14 
On-Line and the C1P in the SAVE 
mode. When you run the BASIC pro- 
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1 REM BASIC HEX MEMORY DUMP FOR HEATH 14 LINE PRINTER 

2 REM BV Id. L. TRVLOR 5/1/79 

3 GOSUB 1000 

4 GOSUB 2000 

5 POKE 11, 43: POKE 12,15 

6 X«=USR<X> 

7 POKE 11, 26: POKE 12,15 

8 X=USR<X> 

10 GOSUB 2200 

14 PRINT" BASIC HEX MEMORY DUMP FOR HEATH H14 PRINTER' 

15 PRINT: PRINT: PRINT 

20 POKE 11, 00: POKE 12,15 

25 REM SET START AND END ADDRESSES 

30 INPUT "START ADDRESS" ;S 

40 INPUT "END ADDRESS" ;E 

45 C=0 

47 POKE 3894, S 

50 S=S*256:E*=E*256 

54 POKE 11, 00: POKE 12,15 

55 X=USR<X> 

56 POKE 3894,0 

57 X=USR<X> 

58 POKE 11, 26: POKE 12,15 

59 X=USR<X>:X=USR<X> 

60 POKE 11, 00: POKE 12,14 

61 X=USR<X> 

62 POKE 11, 26: POKE 12,15 

63 X=USR<X>:X=rUSR<X> 

64 FOR A=S TO E 

65 POKE 11, 00: POKE 12,15 
68 REM GET HEX CHARACTER 
70 B=PEEK<A> 

75 REM LOAD HEX CHARACTER IN BUFFER 

80 POKE 3894, B 

85 REM PRINT HEX CHARACTER 

90 X=USR<X> 

95 REM DO SPACE 

100 POKE 11, 37: POKE 12,15 

110 X=USROO 

120 C=C+1 

125 REM CHECK FOR 16 CHARACTERS 

127 IF C=16 THEN 158 

130 NEXT A 

140 END 

145 REM DO CARRAGE RETURN AND LINE FEED 

150 POKE 11, 26: POKE 12,15 

151 C=0:X=USR<X) 

152 GOTO 130 
160 X=USR<X> 
170 C=0 

18Q GOTO 13S 

999 REM LOAD MACHINE CODE ROUTINE FOR HEX DUMP 

100© FOR G=3840 TO 3892 

101S READ F:POKE G,F 

1020 NEXT G 

1025 RETURN 

1030 DATA 173,54,15,72,74,74,74,74,32 

1046 DATA 12,15,104,41,15,9,48 

1058 DATA 201,58,144,2,105,6,32,30,14 

I860 DATA 96,169,13,32,80,14,169 

1870 DATA 10,32,30,14,96,169,32,32,80,14 

1080 DATA 96,216,173,6,234,169,159,141,5,234,96 

200O REM LOAD AC I A OUCH ROUTINE AT 0E50 

2002 FOR K=3664 TO 3676 

2005 READ VI POKE K,V 

2007 NEXT K 
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20O8 RETURN 

201© DATA 72,173,0,240,74,74 

2020 DATA 144,249,104,141,1,240,96 

2199 REN LOAD MACHINE COO0 FOR 16 COLUMNS 

2200 FOR P=3534 TO 3646 
2210 READ UPOKE P,L 
2220 NEXT P 

2225 RETURN 

2230 DATA 162, 0, 232, 189, 15, 14, 32, SO, 14 
2240 DATA 224 , 48 , 208 , 245 , 96 , 234 , 234 
2250 DATA 48,32,32,49,32,32,50,32,32,51 
2260 DATA 32 , 32 , 52 , 32 , 32 , 53 , 32 , 32 , 54 , 32 
2270 DATA 32 , 55 , 32 , 32 , 56 , 32 , 32 , 57 , 32 , 32 
2280 DATA 65 , 32 , 32 , 66 , ZZ , 32 , 67 , 32 , 32 
2290 DATA 68,32,32,69,32,32,70,32 
OK 



gram on your C1P, the printer will 
respond as does your monitor. 
Anything that is printed out to the 
Monitor screen will be printed on 
the H14. This is only one form of pro- 
gram operation that can be perform- 
ed with the H14 attached to the C1 P. 
The second use of the system is 
with programs written in BASIC or 
machine code to service the printer. 
Included in this article, is a program 
written in BASIC and machine code 
that will allow the user to do one of 
these tasks. 

Software For The System 

The following program will give 
the user of the H14 and the C1P 
system one of the working tools that 
will allow some special printing that 
will be useful and will demonstrate 
the use of the printer. The program 
in Listing 1, will let the user of this 
system explore the machine code 
routines that are resident in the C1 P 
and also can be used to list the Hex 
contents of any user programs that 
should be written into the C1P. 

The program in Listing 1, titled 
"BASIC Hex Dump For The Heath 
H14 Printer" was written to be a 
useful utility program. This program 
will allow the user with the C1P and 
the H14 printer to dump any 256 
byte block of memory out to the 
printer. 

The program uses many Machine 
Language calls through the USR 
function of BASIC. The BASIC por- 
tion of the program is used primarily 
for housekeeping. When the pro- 
gram is running, the user must enter 
the starting and ending addresses 
of the block of memory that are 



27:50 



desired for printout. This is done at 
lines 30 and 40. The user must enter 
page numbers, such as, 16 etc. 
These page numbers are multiplied 
by 256 to arrive at the decimal 
equivalent that is needed for the 
BASIC variables. This is done at line 
50. After the page numbers have 
been entered along with a carriage 
return, the printer will respond with 
a carriage return along with a line 
feed and a dump of the memory 
block. A general list of the modules 
in the program will be given, but a 
detailed description will not be 
necessary because each module in 
the program is separated by REM 
statements. The user may analyze 
the program simply by studying each 
module separately. All the Machine 
Code routines are loaded into 
memory on initialization. The 
Machine Code for the routines are 
stored in DATA statements and are 
loaded into memory with the POKE 
function of BASIC. The Machine 
Code routines are stored at 0E00 
hex, 0E50 hex, and at 0F00 hex. A 
dump of the object code for the 

8E00 

12 3 4 5 6 7 



routines is given in Listing 2. This is 
also an example run of the format 
that the Hex Dump Program will pro- 
duce. A list of the modules for the 
program follows. These modules 
are: 

Line 1000 Machine code load 
routine for main hex dump. 

Line 2199 Machine code for column 
numbering. 

Line 2000 Machine code load of 
ACIA OUCH routine. 

Line 145 Begin carriage return and 
line feed. 

Line 95 Do space between each Hex 
characters. 

Line 125 Check for 16 Hex 
characters. 

The remainder of the modules can 
be found in the main BASIC pro- 
gram. Remember to set memory size 
to 3580 when bringing up BASIC. 

In conclusion, this article has 
given the reader the needed infor- 
mation to allow the C1P to operate 
with an RS232 output port that can 
be used with any printer that has 
this type of input acceptance. In this 
article the example printer used was 
the Heath H14. This was my choice 
for a printer; yours may be one of 
some other manufacture. Keep in 
mind that there are several printers 
that could be used with the RS232 
output port that is in foil on the C1 P. 
It would be of advantage to do the 
needed parts implementation on 
your C1 P. This article has been writ- 
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ten to help simplify this task. Also, 
with the software provided in this ar- 
ticle, to be specific, the hex dump 
program will work with any printer 
that can be used with the C1P. I 
hope that you can use this informa- 
tion and have learned with me. 

Parts List C1P RS232 Port 

1] Q1 PNP Transistor Radio Shack 

276-2023 

1] TRW 'JONES' Min. D Female Con- 
nector Number DB 25S 
1] Resistor 1K Ohm 1/4 Watt 
2] Resistor 10K Ohm 1/4 Watt 
1] Resistor 470 Ohm 1/4 Watt 
1] Connector Molex Male Number 
KKI56 

Misc. 6/32 x 1/4 Screws 
Wire, solder, etc. 



Mr. Taylor has been using the OSI 
system computer since 1976 when he 
built his first system using OSI bare 
boards. This system consisted of 
the OSI 400 CPU, 480 Backplane 
board and the 440 video display 
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board, along with an ASCII 
keyboard. With this system he learn- 
ed to program in Machine 
Language. 

He is interested in hardware for the 



C1P and software development. He 
is continually expanding the 
capabilities of the C1P, and most 
recently, he has interfaced the 
Heath H14 printer and added an in- 
terface to the OSI 48 line buss of his 
own design. 
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Video Games 1 

Hea^-On. Tank Battle, Trap! 

Video Games 2 

Gremlin Hunt, Indy 5000, Gunfight 

Board Games 1 

Cubic, Mini-Gomoku 

Dungeon Chase 

A real- time, D&D , video game 

C1 Shorthand 

Two key command entry 
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One tape supports all recent ROM systems. 
Color and sound on video games. Some 
programs on disk. 

FREE CATALOG 

Orion Software Associates 

147 Main Street 

Ossining.NY 10562 



BKM'S NUMERIC KEYPAD — $65 

FOR OHIO SCIENTIFIC 
OR 

LEAR SIEGLERS ADM-3A 

FEATURES 

Digits 0-9, Decimal Point, and Return 
Terminal Quality Keypad 
Ready to use with C4's and C8's 
Two Color Beige-Brown Case 
Size 7"D x 5"W x 2'/?"H 
Documentation 

OPTIONS 

Adapter cable kit for 

10 minute INSTALLATION — $4.95 

SPECIFY 

Superboard C1 

C2-4P C2-8P 

WE PAY SHIPPING TO CONTINENTAL U.S. 

TEXAS RESIDENTS ADD 5% 
ORDER DIRECT OR ASK YOUR OSI DEALER 
FOREIGN ORDERS ADD 30% 
MICRO 

SYSTEMS 
CORPORATION 




' i//w uS ■-■' S3 

I www 



3809 OLD COLLEGE ROAD 
BRYAN, TEXAS 77801 



713/846-8268 
713/846-3817 




PRINT APPl 






Hires-Graphics 
Normal, Inverse, 
In 2 Sizes ! 



PR INTER 



The MP-250 PLOTTER 

only Oy5« 

FEATURES: Plots on standard paper 
sheet; compact unit; built-in home func- 
tion to lower left-hand corner; needs only 6 
bits of one parallel output port; choice of 
pen colors and line widths; comes with full 
vector software; driven by one parallel port 
or optional interfaces; easily changeable 

SPECIFICATIONS: pens 

PAPER SIZE: 8'A" X 11". TRSMorAPPLE Interfaces Available. 

or 11" wide continuous. 
RESOLUTION: .005"/step ACCURACY: ±0.5% 9> 1 7" PLOTTING SPEED: Up to 

(1.27mm/step). (43cm) or better. 2.5" (6.35cm) sec. 



MICRO MUSIC BOARD for APPLE II 

HAS 4 VOICES & BUILT-IN AMPLIFIER 



S 



175. 



SOFTWARE: 

CINCOPY - Make Apple 

disks uncopyabie SOQ95 



ULTIMATE TRANSFER 

Telephone Transfer program 

$25. 



lor APPLE D and 

DC HAYES Mfcromodem 



ROADRALLYE 

HIRES Driving Game 
5 different 5 -# 495 
tracks. l ^ 



Computer Comer of New Jersey 

439 RL 23, Pompton Plains. N.J. 07444 

DEALER INQUIRIES INVITED Mastercharge & visa O.K. 



(201)835-7080 

PRICES SUBJECT TO CHANGE 



by 
EPSON 




795. 



SPEED: 58LPM 125 CPS with GRAFTRAX 

INTERFACES: Parallel standard IEEE488 and serial RS-232 
optional. (Apple type parallel card and 
cable 8 99.) 

CHARACTER SET: Full 96 Character ASCII Set (upper and 
lower case with expanded print). 

PRINT HEAD: 1 00 x 1 06 character life expectancy. 

GRAFTRAX OPTION' full dot addressable graphics (480 
dots/line) with Automatic print head pro- 
tection on dense pictures plus form feed 
and skip over perforation. 

FREE! APPLESOFT-WARE 

for graphics dump included 

•UPDATE EARLIER TX-80's TO GRAPHICS for 8 99. 00 




1930 Fourth Street, San Rafael, CA 94901 (415) 454-6500 



m 



by &ff Budge, creator o/ Tntogy and Penny Arcade 
$24.95 32K. Disk Applesoft OR Integer 

A great hi res lunar lander, |usl like the arcade game' 

• Landscape scrolling 

• Auto-zoom for landing site close-up 

• Player conlrol of 360'' craft rotation 

• Spectacular crashes 

• Always chaBenging . . Improve your score as you improve 
your skill' 

cy4ristotle'Sc5Apple 

by Scot Komins 

$34.95 48K. Disk Applesoft 

A computered tutor lor ANY subject, al ANY level 



• 2 modes ol instruction - tulor and test. 

• 3 qui* types till in, multiple chore, and matching, including 
alternate answers lor fill-in questions. 

• Multilevel learning reinforement Written by a specials! in 
Computer Aided Instruction (CAI). 

• Highly interactive, no programming knowledge necessary. 

• Good (or stuoVnts,lv>mestudyandcorrespondencecourses. 
govemnienl and ham radio exams, etc 

^CwCLCll by Arthur Wells 
$24.95 48K. Disk Applesoft OR Integer 
Finally The Hires Baseball that's as good as the Apple' 

■ 8 different pitches. 6 different swings 

• 3-D effect on fly balls 

• Player controlled fielding and throwing 

■ Vocal iimpae 

• Complete electronic score board 

■ Beautiful stadium in lull color 



MICRO MEMO 



by Barney Stone 

$39.95 48K DISK Applesoft 

A powerful, easy to use appointment calendar 

• includes one time, weekly, monthly, semi annual and annual 
memos. 

• Will remind you one week, two weeks or a month in advance 
lo prepare for meetings, make reservations, buy birthday 
presents, etc 

• Display or print any day's or week's remmderS- 

• A "perpetual" calendar holds one full year, beginning with 
any month Automatically posts birthdays, etc.. into new 
months. 

• Knows most major holidays. 

• Supports Mt. Hardware Apple Clock (not required) 

Calif. Res. Add 6% Sales Tax. No COD's. Add $2.00 for 
Shipping & Handling. Use Check, Money Order. VISA 
or MASTERCARD (add Exp.). Dealer Inquiries Invited. 

APPLE II a a TM of Apple Computer. Inc. 



ALSO AVAILABLE: ELECTRONIC PRICE SHEET (A sales tool for retailers) $100 48K/Disk Applesoft, and BLOODY MURDER (A2-player 
knife fight— rated "R" for violence!) $19.95 48K/Disk Integer. 



WATCH FOR IT, COMING SOON- 
The Data Base As Good As Your Apple B. 




Applesoft Floating Point Routines 



A discussion of where these important routines are 
located, what they do, and an example of their direct 
use. 



R.M. Mottola 
Cyborg Corp. 
342 Western Ave. 
Boston, MA 02135 



Part of a recent project required 
me to write a routine that would 
calculate various statistical data 
reductions on a series of data 
points. The initial result, written in 
Applesoft floating point BASIC, 
worked well enough but took a 
healthy amount of time to execute. 
Upon doing some timing ex- 
periments, it became apparent that 
a good deal of the time required to 
perform the task was eaten up by 
BASIC overhead-conversion of 
types, floating point "FOR-NEXT" 
loops, and general interperter 
related functions. 

What I really wanted was to write 
all of the routine in machine 
language. To do this, there were two 
options available. The first was to 
write some floating point routines 
which maintained the Applesoft five 
byte variable format. This proved to 
be impracical due to the amount of 
memory required for these routines. 

The second and much more 
memory efficient solution was to 
locate the floating point routines 
already in my machine in Applesoft. 
This proved to be reasonably dif- 
ficult for a number of reasons but 
after much head-scratching I've 
managed to unearth the following 
routines. Before using them, its pro- 
bably a good idea to familiarize 



yourself with the format of both the 
Applesoft variables and the Ap- 
plesoft floating point accumulators. 



The format of Applesoft variables 
is a standard five byte floating point 
representation, with the highest 
order byte containing the exponent 
and the lower four bytes containing 
a signed mantissa. See page 137 of 
the Applesoft manual for more on 
this. The format of the Applesoft ac- 
cumulators is a little different. You 
will notice from various Applesoft 
zero page usage tables that seven 
bytes have been allocated for each 
of the two floating point ac- 
cumulators. The format of these ac- 
cumulators is as follows: The 
highest order byte contains the ex- 
ponent. The next four bytes contain 
the negative absolute value of the 
mantissa, as represented in Ap- 
plesoft variable format. The sixth 
byte contains the origional high- 
order byte of the mantissa if a value 
has just been converted from 
variable format to accumulator for- 
mat. In any case, this byte is used to 
represent the sign of the mantissa. 
The seventh and last byte of the ac- 
cumulator is a "function" byte used 
in arithmetic operations. It is not in- 
itially assigned a value on conver- 
sion of a value from variable format- 
to a accumulator format. 



To use the following floating 
point routines is a reasonably 
straight-forward process. For the 
sake of simplicity, you may find it 
easier to forget the accumulator for- 
matting of values, and load all 
values into the accumulator using 
the "FPLOAD" subroutine listed. 
This routine performs the conver- 
sion while diong the load. You 
should also be careful to represent 
all values in normalized form. If you 
plan to use only values that have 
been previously specified by Ap- 
plesoft, you will not have to do this 
as Applesoft normalizes all variables 
as they are specified. To use your 
own values, you may find the ac- 
companying utility program useful. 

Another thing to be careful about 
is floating point errors (Division by 
zero, Overflow). Since these floating 
point routines were not meant to be 
used outside of Applesoft, the entry 
points to the error handling routines 
are in ROM. Unfortunately, the vec- 
tors to these routines are cast in 
stone (or Silicone, anyway) and can- 
not be changed. There are two ways 
to deal with these errors: 

1. Test your routines for "worst 
case" operation. If you can make 
sure that errors will never ocur, 
you've got it made. 

2. Applesoft has the ability to vec- 
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tor errors to a specified Basic line 
number with the ONERR... GOTO 
STATEMENT TO DIRECT ERRORS 
TO A specified line number. On this 
line number, you can make a call to 
your own machine language error 
handling routines. 



The following routines constitute 
the major arithmetic routines 
available in Applesoft. There are, of 
course, other fuctions buried in 
Basic which have not been iden- 
tified here. I would appreciate hear- 
ing from anyone else who has dug 
into those mysterious ROMs. 



Name: FPLOAD 
Address: $EAF9 
Symbolic: M-*FPAC1 

Loads variable into primary floating 
point accumulator. Converts to 
FPAC format. A and Y registers 
must point at variable in memory 
(ADL, ADH). Clears SAC. 

Name: FPSTR 
Address: SEB2B 
Symbolic: FPAC1 — > M 



Stores value in primary floating 
point accumulator in memory. Con- 
verts from FPAC format to Ap- 
plesoft variable format. X and Y 
registers must point at first byte in 
memory in which value is to be 
stored (ADL, ADH). Clears SAC 



Name: TR1 >2 
Address: SEB63 
Symbolic: FPAC1 

Transfers the value contained in the 
primary floating point accumulator 
to the secondary floating point ac- 
cumulator. Clears SAC. 



Name: FPDIV2 

Address: SEA60 

Symbolic: FPAC2/M— >FPAC1 

Divides the value contained in the 
secondary floating point ac- 
cumulator by the value pointed at by 
the A and Y registers (ADL, ADH) 
and stores the result in the primary 
floating point accumulator. 



Display Floating Point Representa- 
tion of Vars. 



30 : 

?0 X = 0: D* = 



CHR* (4) 



100 
110 
120 
130 
140 
150 
160 
170 
1 30 
190 



FOR N = 763 TO 792 

READ A: POKE N, A 

NEXT 

REM ESTABLISH CONVERSION ROUTINE AT $300 



DATA 165, 105, 24, 105, 2 
DATA 164, 106, 144, 1,200 
DATA 32, 249, 234, 160, 6 
DATA 185, 157, 0, 153", 25 
DATA 3, 136, 16, 247, 96 

HOME : PRINT : PRINT TAB ( 7) "FLOATING 

PO I NT CON VERS I ONS " 
PRINT : PRINT : PRINT "INSTRUCTIONS-" 
PRINT : PRINT "ENTER VALUE YOU WISH 

CONVERTED TO FLOATING POINT 
REPRESENTATION. IF YOU WISH TO PRINT 
THE CONVERSIONS ON THE" 
PRINT "PRINTER, FOLLOW THE VALUE WITH A 'P 

TO RETURN TO BASIC, HI 
T (RETURN) KEY. " 
VTAB 14: CALL - 86S 
INPUT "ENTER VALUE: " , A* 
IF A* - "" THEN VTAB 23: END : REM 

""=NULL * 
IF RIGHT* (A$, 1) > < "P" THEN 300 
PRINT D*i "PR#1" 
REM PRINTER IN SLOT # 1 
PRINT : PRINT 
300 X = VAL (A*): CALL 763 

310 VTAB 13: CALL - 953: PRINT "VALUE" "X 
320 PRINT : PRINT "ACCUMULATOR: *", 
330 FOR N - 793 TO 799 
340 A = PEEK. IN): GOSUB 450 



200 
210 



20 



230 
240 
250 

260 
270 
2:30 
290 



:>U 



NEXT 



PRINT 



PRINT 



360 PRINT "VARIABLE *"; 

370 B * PEEK (105) + PEEK (106) * 256 + 

330 FOR N = B TO B + 4 

390 A = PEEK ( N ) : GOSUB 450 

400 NEXT : PRINT 

410 PRINT D*; "PR#0" 

420 GOTO 230 

430 : 

440 REM DECIMAL TO HEX SUB 

450 A - A / 16: E = INT I A) 

460 A = (A - B) * 16 

470 B ■ B + 48: IF B > 57 THEN L «= B + 7 

430 PRINT CHR* (B>i 

490 A = A + 48: IF A > 57 THEN A = A + 7 

500 PRINT CHR* (A)" "; 

510 RETURN 
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Name: TR2>1 
Address: $EB53 
Symbolic: FPAC2-*-FPAC1 

Transfers the value contained in the 
primary floating point accumulator 
to the secondary floating point ac- 
cumulator. Clears SAC. 



Name: FPADD2 
Address: $E7A0 
Symbolic: 0.5 + FPAC1-> FPAC1 

Similar to above, but adds the value 
(0.5) to the primary floating point ac- 
cumulator. 



Name: FPLOG 

Address: $E941 

Symbolic: LOG (FPAC1)-* FPAC1 

Returns the natural log of the value 
obtained in the primary floating 
point accumulator to the primary 
floating point accumulator. 



Name: FPSQR 
Address: $EE8D 
Symbolic: FPAC1— » FPAC1 

Returns the positive square root of 
the value contained in the primary 
floating point accumulator in the 
primary floating point accumulator. 



Name: FPEXP 

Address: $EE94 

Symbolic: FPAC2 M-»FPAC1 

Raises the value contained in the 
secondary floating point ac- 
cumulator to the value pointed at by 
the A and Y registers. The result is 
stored in the primary floating point 
accumulator. 



Name: FPINT 
Address: $EC23 
Symbolic: INT (FPAC1). 



>FPAC1 



Returns the integer value of the 
value contained in the primary 
floating point accumulator to the 
primary floating point accumulator. 



Name: FPABS 

Address: $EBAF 

Symbolic: ABS (FPAC1)-# FPAC1 

Returns the absolute value of the 
value contained in the primary 
floating point accumulator to the 
primary floating point accumulator. 



Name: FPADD 

Address: SE7BE 

Symbolic: M + FPAC1-* FPAC1 

Adds the value of the variable 
pointed to by the A and Y registers 
(ADL, ADH) to the value contained in 
the primary floating point ac- 
cumulator and stores the result in 
the promary floating point ac- 
cumulator. 



Name: FPMUL 

Address: $E97F 

Symbolic: M*FPAC1-» FPAC1 

Multiplies the value pointed at by 
the A and Y registers (ADL, ADH) by 
the value contained in the primary 
floating point accumulator and 
stores the result in the primary 
floating point accumulator. 



Name: FPSUB 

Address: $E7A7 

Symbolic: M - FPAC1-* FPAC1 

Subtracts the value contained in the 
primary floating point accumulator 
from the value pointed at by the A 
and Y registers (ADL, ADH) and 
stores the result in the primary 
floating point accumulator. 



Name: FPDIV 
Address: $EA66 
Symbolic: M / FPAC1- 



FPAC1 



Divides the value pointed to by the A 
and Y registers (ADL, ADH) by the 
value contained in the primary 
floating point accumulator and 
stores the result in the primary 
floating point accumulator. 



Name: FPSGN 

Address: $EB90 

Symbolic: SGN (FPAC1>* FPAC1 

Returns the sign of the value con- 
tained in the primary floating point 
accumulator. A negative value will 
return (-1). A positive value will 
return a (1). A value of zero will 
return a (0). 



Name: COMP2 

Address: $E89E 

Symbolic: TWO'S COMPLEMENT 

OF FPAC1-* FPAC1 

Returns the Two's Complement of 
the value contained in the primary 
floating point accumulator to the 
primary floating point accumulator. 



Name: INT>FP 
Address: $E2F2 
Symbolic: (Y,A)-»> FPAC1 

Converts a two byte integer to its 
floating point equivalent (FPAC for- 
mat) and stores it in the primary 
floating point accumulator. The in- 
teger must be represented with: the 
high-order byte stored in the A 
register, and the low-order byte 
stored in the Y register. 



Name: FP>INT 
Address: $E10C 
Symbolic: FPAC1 -» (SAO, $A1) 

Converts the floating point contain- 
ed in the primary floating point ac- 
cumulator to a two byte integer, 
which is stored in the fourth and 
fifth bytes of the primary floating 
point accumulator (SAO, 4A1). $A0 
contains the high-order byte and 
$A1 contains the low-order byte. 



fi 



R.M. Mottola is a member of the 
Systems Staff at Cyborg Corp., a 
manufacturer of medical instrumen- 
tation. He is currently involved in 
the design and enhancement of 
microcomputer based physiological 
data acquisition and processing 
devices. 
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Dear Micro, 

I read the editorial in the December (79) issue 
and saw that it said that the first articles written 
by teenagers were coming soon. Well, I wrote 'An 
Additional I/O Interface for the PET (also Dec. 79) 
and I am 14... 

Kevin Erler 

Well Kevin, the quality of your article shows how 
well the teenagers can do — not only in using 
computers but in writing about them. We did not 
realize from your article that your were only 14, 
and we hope to see more works of young writers 
appearing in Micro. 

To the Editor: 

I recently ordered a software cassette from 
Cyberdine, and along with my order I mentioned 
my difficulty in attaching my recorder to the AIM. 
Mr. Clark and Peterson phoned me and gave me 
quick and valuable help. They asked me whether I 
had the March 1979 AIM Users' Guide. I didn't. 

In March 79 I bought the AIM documentation to 
see whether I wanted to buy the AIM. In December 
79 I bought the AIM. I then had two December 78 
Users' Guides. I completed and sent to Rockwell 
the "up-date" postcards at the rear of the books. 
Results: I have received nothing at all from 
Rockwell. 

This is a shame since I understand that there is 
much correction and clarification, including a 
much better and detailed section on how to hook 
up recorders. (Which I don't have!) 

I am certain that your readers with the 12/78 
Users' Guides would appreciate your help in get- 
ting Rockwell to send them their 3/79 copies — so 
that they may hook up their recorders. 

Edwin Kooser 
Flagtown, NJ 

We would suggest that you first try writing direct- 
ly to Rockwell and requesting the specific up- 
dated information. It is sometimes difficult for a 
large company to keep on top of all of the 
documentation updates, but I am sure that 
Rockwell will be happy to oblige. 



Dear Editor, 

I would like to encourage your readers to copy 
the folloVi/ing letter and send copies to the 
manufacturers listed below. If enough of us do 
this, we might see a new, low-cost printer on the 
market soon. 

Thank you, 
Bruce Showalter 
Abilene, TX 



We don't know if Mr.Showalter's method is the 
best, but he expresses a true need. Here, then, is 
his letter to manufacturers, and a list of manufac- 
turers that he sent along with it. If you agree with 
Mr.Showalter,you may want to write to them. We 
do think that many letters would have some im- 
pact, but we suggest that you write your own let- 
ters, rather than copy this one, and include your 
specifications for a printer. 

Dear Printer Manufacturer: 

As a potential customer, I challenge you to pro- 
duce a printer with the following features: 

* Fixed line capacity of at least 72 characters. 

* Fixed spacing of 10 characters per inch. 

* At least 83 printable ASCII characters 

* Maximum print rate of at least 15 CPS 

* 8 1 /2-inch forms width capacity 

* Price less than $326 

By eliminating such frills as multiple line lengths, 
graphics, and high point speeds, I believe that you 
can market a printer that doesn't cost more than 
the microcomputer that drives it. 

Please think it over; buyers are waiting! 

Yours truly 

Axiom 

5932 San Fernando Road 

Glendale, CA 91202 

base 2, inc. 

Box 3548 

Fullerton, CA 92634 

Comprint Inc. 

340 E. Middlefield Rd. 

Mountain View, CA 94043 

Integral Data Systems 

14 Tech Circle 

Natick, MA 01760 

Microtek, Inc. 

7844 Convoy Ct. 

San Diego, CA 92111 

Trendcom 

484 Oakmead Pkwy 

Sunnyvale, CA 94085 
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Atari Notes 



Some useful information about the Atari 800, including a 
table of the hex values of the keyboard, a discussion of 
the string functions, and a demonstration program. 



William L. Colsher 
4328 Nutmeg Lane, Apt. 111 

Lisle, IL 60532 



After the initial thrill of owning a 
new computer has worn off you 
begin to notice little details that 
weren't apparent at first. You 
discover little tricks to make pro- 
gramming easier and little quirks 
that make it more difficult. This arti- 
cle contains some of the informa- 
tion that I've gathered in the two 
months I've owned my Atari 800. 

Joy sticks are neat. They make 
writing games with real time motion 
easier and more fun to play. Unfor- 
tunately, you can't assume that 
every computer owner will have the 
joysticks your game requires. (The 
Atari computes can use three dif- 
ferent types of game controllers!) In 
fact, you shouldn't assume that 
your hypothetical user has anything 
more than a minimum system. 

Looking through the Atari BASIC 
book that comes with the computer 
yields only disappointment. There is 
no BASIC function that just polls 
the computer keyboard "on the fly". 
(Like the Radion Shack INKEY$ 
function.) 

Fortunately, there is a way to use 
the keyboard for real time control. 
While looking through a program 
from Sears (!) I discovered just what 
was needed. It seems that memory 
location 764 (decimal) contains a 
value indicating the last key that 
was pressed. So, by PEEKing that 
location you can check on what the 
user is doing at any time without for- 
cing the program to wait with an IN- 
PUT statement. 

There are, however, two things 
you have to keep in mind when us- 



ing this PEEK. First, the value in 
location 764 does not change until 
another key is pressed or you poke 
some new value into it. Second, 
notice that I've been saying "value". 
The number at 764 is not an ASCII 
value of the key pressed. Table 1 
contains a list of the values and the 
corresponding characters. 

So, when you use PEEK(764) in a 
program you have to (1) know the 
values of the keys you want to use 
and (2) be sure to reset location 764 
after each PEEK. Program 1 is a sim- 
ple example of using PEEK(764) to 
control the aiming and firing of a 
laser turret. 

When you CLOAD or CSAVE a 
program on the Atari computers an 
internal beeper is triggered once or 
twice. If you'd like to be able to use 
that beeper in your programs a 
PRINT CHR$(253) does the job. I 
have found it useful to indicate to a 
user that he's typed something 
wrong. It's easier to use than the 
SOUND function since you don't 
have to turn it off. You can always 
be sure that it will be heard as well 
since the SOUND function assumes 
that the TV set's volume is turned up 
to an audible level. 

Another useful CHR$ number is 
125. When you execute a PRINT 
CHR$(125) the screen is cleared. At 
first thought this seems a lot like ex- 
ecuting a GRAPHICS command. 
However, when you are using 
graphics modes other than zero 
CHR$(125) clears only the text win- 
dow at the bottom of the screen. 



One of the great deficiencies of 
Atari BASIC is the shortage of string 
functions. Most of us are used to 
the Microsoft BASIC functions: 
MID$, RIGHTS, LEFTS, and con- 
catenation (" + "). Atari BASIC has 
none of these. Fortunately, it does 
have enough to allow a programmer 
to simulate the string functions pre- 
sent in, say, TRS-80 BASIC. 

Table 2 contains a summary of 
the four string manupulation func- 
tions mentioned above and their 
equivalents in Atari BASIC. You 
should also note that all string 
variables must be DIMed in Atari 
BASIC. In the examples A$ and B$ 
can be DIMed to whatever your ap- 
plication requires but T$, a tem- 
porary storage variable, must be 
DIMed T$(1) so that it has a length of 
one character. 

It should be evident from this arti- 
cle that Atari BASIC is an adequate, 
if not overwhelming, version of the 
language. Since the Atari com- 
puters use plug in ROM cartridges 
to hold language interpreters it is 
possible that Atari will eventually in- 
torduce a more standard version of 
BASIC. (At this time the only other 
language available is an 
Editor/Assembler cartridge.) 

Figure 1 has assumed that when us- 
ing the Atari versions the variables 
A$ and B$ have been DIMED ap- 
propriately. The variables S, E, and L 
in these examples stand for the 
Start location of the string, and the 
End location, and the Length, 
respectively, m 
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Table 1 
Key. Value Key Value Key Value 
a 63 s 62 <• 54 

b 21 t 45 > 55 

c 18 u 11 - 14 

d 58 v 16 =15 

e 42 w 46 +6 

f 56 x 22 * 7 

g 61 y 43 1 2 

h 57 z 23 ,32 

1 13 1 31 .34 

j 1 2 30 / 38 

k 5 3 26 ESC 28 

10 4 24 TAB 44 

.37 5 29 BS 52 

n 35 6 27 CAPS 60 

08 7 51 RET 12 

p 10 8 53 SPACE 33 

q 47 9 48 JK 39 

r 40 50 

SHIFT adds 64 to the key pressed. 

CTRL adds 128 to the key pressed. 

Use 255 to reset location 764. (This is the value it has 

when the system is powered up or RUN is typed.) 



Figure 1: 
Concatenation 

Microsoft: A$(LEN(A$) + 1) = B$ 
Atari : A$(LEN(A$)+ 1)= B$ 

LEFTS 

Microsoft: B$= LEFT$(A$,L) 

Atari :B$ = A$(1,L) 

RIGHTS 

Microsoft: B$ = RIGHT$(A$,L) 
Atari :S = LEN(A$)-L 

B$ = A$(S) 
MIDS 

Microsoft: B$ = MID$(A$,L) 
Atari :E = S + L 

B$ = A$(S,E) 



Program 1 

10 GRAPHICS 7+16 

15 X=80«Y=95 

20 GOSUB 1000 

30 REM ***L00K FOR A KEYPRESS 

40 IF PEEK(764) 255 THEN GOSUB 4000 

50 GOTO 40 

1000 REM ***DRAW LASER TURRET 

1010 COLOR 1 

1020 SETC0L0R 0,8,8 

1030 PLOT X,Y 

1040DRAWT0 X+4,Y 

1050 DRAWTO X+4.Y-4 

1060 DRAWTO X,Y-4 

1070 DRAWTO X,Y 

1080 PLOT X+2.Y-5 

1090 PLOT X+2.Y-6 

1100 RETURN 

2000 REM ***ERASE LASER TURRET 

2010 COLOR 

2020 GOSUB 1030 

2040 RETURN 

3000 REM ***FIRE USER 

3010 COLOR 2 

3020 SETCOLOR 1,3,8 

3030 DRAWTO X+2.Y-95 

3040 FOR 1=1 TO 5O1NEXT I 

3050 COLOR 

3060 PLOTX+2,Y-7 

3070 DRAWTO X+2.Y-95 

3080 RETURN 

3100 REM ***MC«E TURRET LEFT 

3110 GOSUB 2000 

3120 X=X-1 

3130 GOSUB 1000 

3140 RETURN 

3200 REM***M0VE TURRET RIGHT 

3210 GOSUB 2000 

3220 X=X+1 

3230 GOSUB 1000 

3240 RETURN 

4000 REM ***HANDLE KEYS 

4010 REM*** RIGHT AND LEFT ARROWS MOVE 

4020 REM ***THE TURRET AND THE SPACE 

4030 REM ***BAR FIRES THE LASER 

4040 IF PEEK(764)=33 THEN GOSUB 3000 

4050 IF PEEK(764)=6 THEN GOSUB 3100 

4060 IF PEEK(764)=7 THEN GOSUB 3200 

4070 POKE 764,255 

4080 RETURN 
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Up From The Basements 



by Jeff Beamsley 



Hello and welcome to the view of 6502 computing 
Ohio Scientific style. That isn't meant to exclude 
6502 enthusiasts who don't own Ohio Scientific 
equipment, but OSI users haven't had much of a 
voice to date. Users of Ohio Scientific machines have 
long suffered the 'middle child' syndrome of benign 
neglect from the microcomputing media. I know my 
customers and dealers have sometimes felt left out 
of the microcomputing hoopla when Ohio 
Scientific's name did not show up in articles men- 
tioning Apple, Radio Shack or Commodore. It can get 
lonely being the only person on the block with an OSI 
machine. Rest assured though, you OSI users are not 
alone. As a matter of fact, the number of OSI en- 
thusiasts has reached a point that independent 
users' groups and newsletters seem to be spon- 
taneously springing up all over the country. 
Recognizing that trend, and also the fact that Ohio 
Scientific is a significant force in 6502-based com- 
puting, the people at Micro have provided this forum. 

One purpose of this column is to get you 'con- 
nected' with the Ohio Scientific users' community. If 
we can't get you connected, maybe can inspire you 
to start your own club. Whatever you are doing, 
however, we want to hear from you. Within the space 
limitations of this column we will certainly attempt to 
publicize every activity of Ohio Scientific users. 

If that sort of publicity were the only purpose of 
this column, it would be filling a need, but it would 
not be very interesting for the 6502 enthusiast in 
general. That would be unfortunate because Ohio 
Scientific has done some truly remarkable things 
with the 6502. 1 could make the arguement that much 
of what Ohio Scientific has done and is doing 
represents "state-of-the-art" in 6502-based hardware. 
They were the first company to offer a completely 
assembled and tested computer. They were the first 
company to deliver a machine that had BASIC in 
ROM. They were the first and remain one of the few 
companies delivering a microcomputer with a Win- 
chester Technology hard disk. All done with the 6502. 
They are certainly the only 6502-based computer 
manufacturer producing machines to compete with 
the Z-80-based CP/M machines. 

Ohio Scientific has grown from a basement opera- 
tion in Hiram, Ohio to a multi-million dollar company. 
The story of their growth alone is one of interest to 
anyone who experienced the microcomputer revolu- 
tion. They have accomplished all this with a 
sometimes debilitating, some would say fatal, 
philosophy that permeates the business side of their 
activities. Reflections of what could be termed a 
"basement attitude" give Ohio Scientific a unique 



image or character in the market place. It very well 
may have been this image that caused some of you 
to choose other 6502-based systems. It is this blend 
of innovative hardware and unusual attitude that I 
think should prove interesting reading for any 6502 
entusiast. The second object of this column, then, 
will be to discuss new products and innovative 
design coming from Ohio Scientific and how, in 
some cases, company philosophy shaped that 
design. 

Another common funcion served by columns such 
as this is "bug-fix" and "gotcha" information. I am 
sure that this column will certainly have its share of 
that. But I hope to take a different approach to it. In 
many cases, because of the general nature of Ohio 
Scientific hardware, a "bug-fix" provides an insight 
into the function of hardware and/or software and 
may provide an opportunity to experiment and im- 
prove that hardware/software rather than just fix it. 
There is also a lesson to be learned from "gotcha's." 
Because of the philosophy alluded to in the previous 
paragraph, many of the gotcha's in Ohio Scientific 
equipment can be predicted. By examining these pro- 
duct short-comings in that light we can learn how 
that philosophy works, and hopefully become more 
intelligent consumers. 

I think that Ohio Scientific has a lot to offer, not 
only in the remarkable hardware that it designs and 
produces, but also in its history and the way it 
chooses to do business. I hope that future discus- 
sions of these items in this column will prove in- 
teresting to all 6502 enthusiasts. 



Connections 

Publications: 

PEEK (65), Aardvark Journal. 

Clubs: 

OSIO of Ellicott City, MD. Contact: Walace Ken- 
dall. 

The Challenger News of Philadelphia, PA. Contact: 
Don Derosa. 

Consumer Computers of La Mesa, CA. Contact: 
Rick Clardy. 

ARISTO— Craft of New York, NY. Contact: David 
Gillette. 

Portland Computer Society of Portland, OR. Con- 
tact: Roger Giles. 

Please Direct all comments, suggestions, questions, 
etc. to me, Jeff Beamsley, at Tek Aids Industries, 
Inc., 44 University Drive, Arlington Heights, IL 60004. 
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PET and APPLE II Users 
PASCAL 

ABACUS Software makes available its version of TINY PASCAL for 
the users of two of the most popular personal computers. 

TINY PASCAL is a subset of the standard PASCAL as defined by 
Jensen and Wirth. It includes the structured programming 
features: IF-THEN-ELSE, REPEAT-UNTIL, FOR TO/DOWN TO-DO, 
WHILE-DO, CASE-OF-ELSE, FUNC and PROC. Now you can learn the 
language that is slated to become the successor to BASIC. 

TINY PASCAL is a complete package that allows you to create, 
compile and execute progams written in the PASCAL language. 
You can save source and object code on diskette or cassette (PET 
version only). Comprehensive user's manual included. The manual 
can be examined for $10 (refundable with software order). 

REQUIREMENTS 

PET 16K/32K New ROMS cassette 
PET 16K/32K New ROMS diskette 
Apple II 32K Applesoft ROM w/DOS 
Apple II 48K Applesoft RAM w/DOS 
TINY PASCAL User's Manual 
6502 Interpreter Listing 

FREE postage in U.S. and CANADA 
All orders prepaid or COD 




wm*znn 



liliiiii!! 



ABACUS SOFTWARE 

P. 0. Box 721 1 

Grand Rapids, Michigan 



49510 




regressive 
pmputing 



OHIO SCIENTIFIC 



Hardware: C1P VIDEO- gives true 32 or 64 chr/line with 
guard bands. This is not a make-shift mod. It makes your 
video every bit as good as the 4P's plus you have switch 
selectable 1,2 and 3 MHz CPU clock as well as 300, 600 
and 1200 baud for cassette and serial port-all crystal 
controlled. Send for our $1.00 catalog for more details. 

COMPLETE PLANS S18.95KIT $39.95 

or send your 600 board to: 

Rick Lotoczky 
3281 Countryside Circle 
Pontiac Twp, Ml 48057 
and he will install the video mod for just $79.95. 
OTHER mods available: Add sound:RS-232 port, 
cassette motor control, cassette interface plans. (300, 
600 and 1200 baud) 

SOFTWARE: (with documentation) for C1 , C2, 4P and 8P. 
Chess 1.9, Backgammon, Excellent Card Games, Arcade 
type games, Utility Programs, Mini Word Processor, 
Memory Maps, Editing Cursor, etc. 
Catalog with free program (hard copy) and Memory Map 

for BASIC in ROM Models $1.00 

We now accept VISA. 

Progressive Computing 

3336 Avondale Court 

Windsor, Ontario, Canada N9E 1X6 

(519) 969-2500 

Note: Any modification will VOID your OSI warranty. 



HAS YOUR APPLE READ ANY GOOD 
PROGRAMS LATELY? 

APPLE II DISK SOFTWARE 
DATA BASE MANAGER 
IFO PROGRAM 

The IFO (INFORMATION FILE ORGANIZER) can be used for many ap- 
plications such as sales activity, check registers, balance sheets, 
client/patient records, laboratory data reduction, perscription informa- 
tion, grade records, mailing lists, A/R, job costing and much more. This 
can be accomplished easily and quickly without prior programming 
knowledge. 

Up to 1000 records with a maximum of 20 headers (catagories) and 10 
report formats (user defined) can be stored on a single diskette, informa- 
tion can be sorted on any header, both ascending and descending in 
alpha/numeric field. Mathematical functions can be performed on any 2 
fields to manipulate the information. Information can be searched on 
any header using >,<,= >,= <, = , and first letter. Mailing list format 
provided. Fast assembly language sort, search and read routines. Many 
error protection devices provided. Put your application program 
together in minutes instead of hours. «-__ „_ 

PROGRAM DISKETTE and instruction manual....$100.00 

MAILING LIST PROGRAM and instruction 

manual...$40.00 

INVENTORY PROGRAM 

2 disk drives, menu-driven program. Inventory categories include: 
STOCKS, DESCRIPTION, VENDOR ID, CLASS, LOCATION, REORDER 
PT., REORDER QTY, QTY ON HAND. All records can be entered, chang- 
ed, updated, deleted, or viewed. Reports can be sorted in ascen- 
ding/decending order by any category. There are 7 search reports (3 
automatic). Calculates $ VALUE of inventory and YTD, MTD, and period 
items sold, Accumulates inventory over a 13-month period. Plus much 
more. Requires a 132-column, serial/parallel printer, Complete turnkey 
operation with bootstrap diskette. 
Proqram diskette and instruction manual. ..$140.00 
PAYROLL PACKAGE 

2 disk drives, menu-driven program. Employee history include: NAME, 
ADDRESS #, ADDRESS #2 CITY, STATE, ZIP, FED EX, STATE EX., 
SOCIAL SEC.#,DATE EMPLOYED, DEPT #, CODE, EMPLOYEE #, 
STATUS, MARITAL STATUS, PAY RATE, OT RATE, VAC RATE, H VAC 
HRS. and PENSION PLAN. Program can generate weekly or biweekly 
payroll. Prints W-2, OTR REPORT, PAY CHECKS, MASTER AND CUR- 
RENT files. FEDERAL and STATE witholding taxes are built into pro- 
gram. Maintains a CASH DISBURSEMENT journal, Accumulates payroll 
for a 53 week period. Generates numerous type of payroll reports. 
Allows data to be searched, sorted and edited. Prints DEDUCTION 
register and more. Maintain up to 125 EMPLOYEES/EXPENSES for 
quick and easy PAYROLL. Numerous error protection devices provided. 
PROGRAM diskette and instruction manual. ..$240.00 
•PLEASE SPECIFY STATE WHEN ORDERING 

APARTMENT MANAGER 

2 disk drive, menu driven program written in assembly language and AP- 
PLESOFT II. All you will ever need to manage your apartment. Handles 
up to 6 BUILDINGS with a maximum of 120 units each. Complete turn- 
key operation. Data categories include APT #, TYPE, TENANT NAME, 
PETS, CHILDREN, SECURITY DEP., PET DEPOSIT, POOL DEP, MISC 
DEP, RENT ALLOWANCES, DATE MOVED IN, VACANCY DATE, REF- 
FERAL, CONDITION OF APT, DAMAGE AMT and COMMENT LINE. 
Search, sort, enter, edit and vacate tenates. Maintains a MTD and YTD 
rent recipts as well as complete utility reports, rent lost by vacancies. 
Maintains expenses, vacated tenants report and much more. 
PROGRAM blSKETTE and INSTRUCTION 

MANUAL..$325.00 

PROFESSIONAL TIME AND BILLING 

2 disk drive program written in assembly language and APPLESOFT II. 
Completely menu-driven, Maintain all billing of clients and personnel. 
Generates and invoices. Numerous reports based on all types of 
criteria. Easy data entry for RATES, CLIENTS, and MATTERS. Has 
SEARCH, SORT, CHANGE (on screen editing), VIEW and BALANCE 
FORWARD. IF your are a JOB CONTRACTOR, ATTORNEY, ACCOUN- 
TANT, GENERAL CONSULTANT, or anyone that needs to charge for 
time, this program is a must. Complete turnkey operation. Numerous 
REPORTS are produced to aid in the TIME ANALYSIS PROCESS. All this 
and much more. 
PROGRAM DISKETTE and INSTRUCTION MANUAL...$325.00 

SPEED READING 

PROGRAM DISKETTE AND INSTRUCTION 
MANUAL..$200.00 

ALL PROGRAMS REQUIRE 48K and APPLESOFT II ON ROM OR AND 
APPLE II PLUS. ALL SOFTWARE IS COMPATABLE WITH PASCAL 
SYSTEMS. PROGRAMS RUN FROM ANY PORT OF THE COMPUTER 
WITH SERIAL/PARALLEL PRINTERS. REQUIRES 1 DISK DRIVE 
UNLESS OTHERWISE NOTED. 
SEND CHECK/MONEY ORDER or C.O.D. To: ,,._„_ 

SOFTWARE TECHNOLOGY for COMPUTERS 
P.O BOX 428 
BELMONT, MA 02178 

OR AVAILABLE FROM YOUR LOCAL DEALER. 



Son of Screen Print 



This is a 'mini-word processor' which overcomes some 
of the inherent idiosyncrasies of the Pet Printers. 



Kenneth Finn 

Little Old Farm 

Bedford, NY. 10506 



The Commodore Company pro- 
duces many fine pieces of equip- 
ment. Unfortunately, as their 
business grew the design 
philosophy changed. Thus later 
pieces of equipment like the Com- 
modore Printer were designed 
slightly differently with respect to 
the Original Commodore PET Com- 
puter. 

While these changes are not 
disastrous with respect to equip- 
ment compatibility, they produce 
problems for software designers to 
mate the equipment. 

Here are some examples of this 
imcompatibility: 

1. To produce Letters on the 
Printer from the screen 
characters you have to offset 
the screen ASCII values. 

2. To produce lowercase on the 
printer your have to send a 
special character every line, vs. 
a single poke on the Pet Com- 
puter. 

3. To produce REVERSE 
characters on the printer you 
have to send a special character 
to the printer; the PET uses a 
single key.in this case RVS ON. 

4. To send SHIFTED Characters to 
the printer you have another off- 



set to change the screen ASCII 
to printer ASCII. 

None of these is very much of a 
problem in itself but when you try to 
produce a simple screen print pro- 
gram for the PET PRINTER you have 
to factor all of these idiosyncrasies 
into the program. 

When I first got the Pet Printer I 
needed a simple program to pro- 
duce listings using ONLY letters 
and numbers. The resultant program 
(MICRO 22:13) did just that and had 
the advantage of being usable for 
other printer like the AXIOM or 
Selectric typewriters, or any other 
printer that uses ASCII. 

Now this new version is more 
specialized and tailored just for the 
PET PRINTERS. Thus it is longer.to 
get the printer to reproduce the en- 
tire PET graphics and lowercase 
character set. This program is really 
a mini-word processor in that you 
can get a "letter" on the screen cor- 
rect it with the cursor and then send 
it to the printer. The same can be 
done with pictures etc. 

I have tried to document the pro- 
gram well so you can study it and 
learn from the approach. It is similar 
to the previous program but the ad- 
dresses were changed for the new 



ROM set and the character conver- 
sions are more specialized. 

To use the program use SYS 826. 
If you want to reproduce the entire 
screen change $036E to $19. Then, if 
you are in a BASIC program you can 
have the printer reproduce the 
screen with a simple sys command. 
The program fits into the second 
cassette buffer and will remain 
through many new program load- 
ings. You can even load it after a 
BASIC program to use when you 
need it. 



v> 



Kenneth Finn has a B.S Degree in 
Electrical Engineering and a 
Business Degree in Organization 
Behavior. His interest in computing 
started when he had to analyze 
employee attitude survey data from 
his consulting clients. His pet is still 
used for this purpose but is also us- 
ed extensively in word processing 
and he is completing an interface 
with an IBM Selectric Type 735. He 
also has a business venture training 
managers in the use of micro com- 
puters for analysis models of 
business plans, using the PET com- 
puter exclusively because of its sim- 
ple, one piece type of operation. 
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Old PET Hexadecimal addresses 



033fl 


R9 


00 




LBfi 


#*00 




933C 


3D 


65 


02 


STfi 


■$ 0265 


$0256 


033F 


SB 


FE 


03 


STfi 


$■ 03FF. 




0342 


81" 


FF 


03 


STfi 


$ 03FF 




0345 


85 


Bfi 




STfi 


? Bfi 




0347 


H9 


01 




LBfi 


#$01 




0349 


SD 


fiE 


00 


STfi 


? 00fit 


$0262 


034C 


m 


04 




LBfi 


#$04 




034E 


8B 


51 


02 


STfi 


$ 0251 


$0242 


0351 


82 


5E 


02 


STfi 


¥■ 625B 


$024C 


0354 


Fi2 


04 




i.BX 


#$04 




0356 


20 


BC 


F7 


JSR 


$ F7BC 


$FFC9 


0359 


fi9 


80 




LBfi 


#$80 




035B 


85 


BE 




STfi 


$ BE 




035H 


20 


C6 


03 


JSR 


$ C3C6 




0360 


fill 


f- H 


03 


lBR 


$ 03FF 




0363 


C9 


28 




C'rfP 


»i-$2y 




0365 


D0 


17 




Br-JE 


$ 037h 




0367 


EE 


Ft 


03 


I NC 


¥ 03s-E 




036fl 


fill 


FE 


03 


!_3fi 


% ft'SFt. 




036D 


C9 


15 




CMP 


#$15 




036F 


F0 


4fi 




3EQ 


$ 03B3 




0371 


fl9 


00 




LBfi 


#$90 




0373 


SD 


FF 


03 


S ! fi 


$ 03FF 




0376 


H9 


0B 




: _Bfi 


#$0B 




0378 


20 


32 


F2 


JSR 


¥ F232 


$F230 


037E 


20 


C6 


S3 


JSR 


$ 03C6 




037E 


38 






SEC 






037F 


fi2 


00 




I .BiK 


#$80 




0381 


fil 


Dfi 




i.Bfi 


( $3fi.. K> 




0383 


C9 


20 




CtfP 


#$2C 




0385 


90 


IB 




BCC 


f 03fi2 




0387 


C9 


40 




Ci-iP 


#$40 




0389 


90 


IB 




BCC 


$ 03fi8 




038B 


C9 


60 




CtfP 


f}*60 




038D 


90 


1 "7 




BCC 


$ 03fi6 




038F 


C9 


80 




CMP 


#$80 




0391. 


90 


13 




BCC 


$ 03fi6 




0393 


85 


BC 




STfi 


$ BC 




0395 


fi9 


12 




!.3H 


#$12 




0397 


20 


w& 


£■'■• 


JSR 


$ F232- 


$F230 


039fl 


fi5 


nc 




!_Bfi 


$ BC 




039C 


38 






SEC 






039JJ 


E9 


80 




SBC 


#?80 




039F 


38 






SEC 






03H0 


B0 


El 




BCS 


$ 0333 




03fl2 


€.3 


40 




hbc 


#$40 




03ii4 


10 


02 




BPL 


$ 03flS 




03R6 


69 


80 




RBC 


^$80 




03fi8 


20 


32 


F2 


JSR 


$ F232 


$F230 


03fiB 


FIS> 


92 




LBfl 


#$92 




03hD 


20 


* "■'-•' 


F2 


JSR 


$ F232 


$F230 


03E0 


E6 


Bfi 




I HC 


$ Bfi 





Pet Printer Secondary Address =0 
Line Counter 

Characters per line counter 
Lo-Byte Index 



GPIBFile length =1 



Logical File Number Four 
Device Number Four 



Open 4,4,0 

Hi-Byte Index 

Test for PET Lowercase Mode 



40 Characters per line constant 



21 Lines per screen constant 
(End Program return to basic) 



Carriage Return Chr$(13) 

Print#4 

Test for Pet Lowercase Mode 



Get Next Character via indirect ad- 
dress 
Is it a letter? then add 64 

Is it a Number? then add 
Is it shifted letter then add 128 
Is it shifted number then add 128 

Temporary Storage 

Pet Printer Reverse On Chr$(18) 

Print #4 

Re-Load Temporary 

Subtract 128 for reverse characters 

(Unconditional Branch) 
Offset for letters 



Offset for shifted characters 

Print #4 

Turn off Per Printer Rvs. chr$(146) 

Print #4 

Index Lo-byte 
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03B2 
Q3B4 


B@ 


02 




BHE 
INC 


■$ 63B6 
f BB 




Index Hi-byte 


Q^B^- 


>=F 


F F 


@3 


I IC 


$ 03F' r 




Increment character counter 


63B9 
S3BB 


10 

H9 


A5 




BPL 

I.HH 


% 9360 
#$@B 




Return for next character 
ASCII Carriage Return 


03BB 


20 




F2 


JSR 


$ F232 


$F230 


Print #4 


03C0 


fl9 


04 




:.HH 


tt*04 






03C2 


20 


6F 


F2 


JSR 


$ F26E 


$FFCC 


Close 4 


03C5 
©3C6 


60 
flD 


4C 


E3 


LBFt 


$ £84C 




Return to basic 

Pet Graphics shift on Port 

Get bit 2 


03C9 


29 


02 




HHB 


±f$8^ 




Test for lowercase 


93CB 


C9 


02 




CclP 


#*02 






©sen 


B0 


05 




BHE 


$ 03B4 






Q3CF 


fl9 


11 




i.Hfl 


#*li 




Pet Printer Lowercase Chr$(17) 


03B1 


20 


32 


bZ 


JSR 


$ Fvb-v 


$F230 


Print #4 


03B4 


60 






K'TS 






Return 



m PROGRESSIVE 


SOFTWARE 


-%> APPLE II PROGRAMS 


Apple Menu Cookbook 


$19.95 


Touch Typing Tutor 


$19.95 


Single Drive Copy 


$24-95 


Sales Forecast 


$14-95 


Utility Pak I 


$14-96 


Utility Pak II 


$19.95 


Curve Fit 


$14-95 


Missile -Anti -Missile 


$14.95 


Solitaire 


$14.95 


Financial Pak II 


$14.95 


Water the Flowers (Ed. 


I) $19.95 


Catch the Pig (Ed. II) 


$U-95 


Polar Coord. Plot 


$14.95 


Financial Pak II 


$14-95 


Mailing List Program 


$19.95 


FILES (Post/Hn $4-95) 


$49.95 


ROSTER (Post/Hn $4.95) 


$49.95 


Light Pen (Post/Hn $3. 


) $24-95 


to order: Send Check 


or M.O. 


PO Box 273, Ply.Mtg. , 


PA 19462 


Postage & Handling $1 


.25 


PA residents add 6* S 


tales Tax 


DEALER INQUIRIES INVITED 



( 



D©^®©[}{][!! 
for the AIM 




saasa® §'(«jwmiiaa 



AIM MicroChess with Player's and Programmer's Manual, 
complete Source Listings, Object on Cassette Tape. 
$15.00 plus shipping [$1.00 US/S2.00 Anywhere Else] 
MICRO Software, P.O. Box 6502, Chelmsford, MA 01824 
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KIM Basic users: upgrade 
to full-featrd Basic with 
renumb, append, improved 
editor, file system suppor- 
ting PET-like file com- 
mands & more. Incl casstt, 
manual, sample progs, 
compl source list. Many 
practical applica to KlM 
Basic. Send $43. for packg 
or SASE for 3 pg compl 
descr. 

Sean McKenna 

64 Fairview Av. 

Piedmont, CA 94610 

PET MACHINE LANGUAGE 
GUIDE: Comprehensive 
manual to aid mach. lang. 
progrmmr. More than 30 
routns fully detailed: reader 
can put to immed. use. For 
New or Old ROMS. $6.95 
plus .75 p&h. VISA/Master- 
charge accptd. 

Abacus Software 

P.O. Box 7211 

Grand Rapids, Ml 

49510 

British Apple 

Owners/Dealers! 
Write now to MGA for ex- 
tensive list of specialised 
software and hardware for 
your Apple or 2020. We pro- 
mise you'll be surprised!! 
Michael Gurr 

Associates 
140 High Street 
Tenterden, Kent 
TN30 6HT, England 

The Creativity Life Dynamic 
Package: (Apple II Plus, 
48K, $19.95:disk) Package 
includes disk, 2 special 
drawing cards and 88 page 
Program Manual.' Draw 
anything:circles, people, 
ellipses, fireworks, squares, 
etc, at touch of a key! Write 
music using Apple as 
piano. Write poetry. Save 
and retrieve all. Truly 
creativity disk! Order from: 
Avant-Garde Creations 
P.O. Box 30161, 
Eugene, OR 97403 



Classified Ads 



NEW AIM/SYM/KIM Totally 
programmable (including 
baud rate) RS-232 Interface: 
$84.95 ASM, $69.95 kit. 
Fobel Enterprises 
552 E. El Morado 
Ontario, Canada 91764 
(714) 984-8871 

C1P or Superboard Auto 
Line Number and Trace: no 
more typing line 
numbers— trace displays. 
BASIC line number being 
executed and will stop after 
each command if you want 
it to. Tape & instructions 
$6.50. 

J DeHoff 

R.R. Number 1 

Texico, I L 62889 

SYM-1 boks by Robt. A Peck 
Monitor Theory Manual $8. 
Hardware Theory Manual$6. 
SYM/KIM Appendix to First 
Book of Kim $4.25 

Send SASE for details 

Datapath 

P.O. Box 2231 

Sunnyvale, CA 94087 

OSI Software— Don't just 
watch Star Trek, PLAY it 
with VIDEOTREK, the fast 
action graphics version of 
Star Trek. Klingons, 
Phasers, Torpedos, Black 
Holes & Doomsday 
Machine! $8.95. Write for 
list of others. 
Bob Retelle 
2005 Whittaker 
Ypsilante, Ml 48196 

ATTENTION OSI C1P/SBII 
OWNERS! 'The Manual' is a 
comprehensive users' 
guide. Understanding 
BASIC, using graphics, 
hardware, mods, interfaces, 
utilities, some programs. 
All for $9.50. 

JDS Software 
2334 Antigua Ct. 
Reston, VA 22091 



AIM 65 Newsletter— hard- 
ware and Software, Utilities 
as well as Applications. 
Keep up to date in the AIM 
65 world. Target is publish- 
ed bimonthly. Six issues 
$6.00 in US & CAN ($12. 
elsewhere) 

Target 

c/o Donald Clem 

RR Number 2 

Spencerville, OH 45887 

TRACER ($11.95) and other 
programs available. Phone 
or write: 

Quality Software 
3194 Ospika PI 
Prince George, BC 
Canada V2N-2TS 
(604) 563-9839 

FOR SALE: ASR-33 TTY 
Printer, keyboard, tape 
reader & punch, with stand, 
82 columns. Connects 
directly to the AIM-65 I/O. 
Simple interface available 
for the Apple & other 
micros. Excellent condition, 
usually $600 plus. Will sell 
for $250. You pick up. Call: 

Don 

(714) 776-6384 

California 



"'Programmer Fatigue??? 
SYM — Bug/Monex adds 15 
commands to SYM's 
repetoir, including an in- 
teractive trace/debug. 
Cassette @ $200 of $3800, 
$15.95. 2716 (5V) $F000 — 
$F7FF, $39.95. Commented 
source listing $9.95. 
Custom Assembly add 
$2.00. SASE for more infor- 
mation. 

J. Holtzman 
6820 Del mar, 203 
St. Louis, MO 63130 
(314) 863-5209 



Business Dollars and Sense in Applesoft 



If you ever intend to do serious business programming 
in BASIC, then the information and programs presented 
here are invaluable. They show how to overcome the 
inherent rounding and formatting problems of BASIC in 
dealing with dollar and cents type of data. 



Barton M Bauers, Jr. 

30 Hillock Dr. 

Walllngford, CT. 06492 



If you purchased an Apple II Plus 
for business applications, that is, 
applications that require the use of 
financial tables and calculations, 
then you may have encountered a 
rounding problem in executing your 
programs. Perhaps you have failed 
to recognize this problem, and are 
running programs which contain er- 
roneous mathematical calcula- 
tions! The purpose of this article is 
to acquaint you with the potential 
for rounding errors, and to suggest 
several possible solutions, depen- 
ding on your needs. In addition, the 
process of creating textfiles, with 
some examples, will be addressed, 
since you will probably wish to use 
the subroutines discussed later in 
many programs which you write. 

To start, let's demonstrate the 
problem. Try the following program: 

PRINT 100.09 +200.00 + .80 (rtn) 

(Note that where (rtn) is indicated, it 

means to press the key marked 

RETURN.) 

Your Apple should display: 

300.89 

Now type this program: 

PRINT 300.89 — 100.09 — 200.00 — .80 
(rtn) 

The answer (which you'll agree 
should be zero) will appear as: 

1.19907782E-08 

This small error occurs because 
not all numbers between zero and 



one can be exactly represented in 
binary arithemetic. Oddly enough, 
for most scientific work, such an er- 
ror is insignificant, and will not af- 
fect the outcome of any programs. 
It is unlikely, however, that any 
usable system can be inplemented 
in a business or financial situation 
unless absolute accuracy is obtain- 
ed in recording and tabulating 
monetary amounts. When you pro- 
gram such an application — 
whether it be the family checkbook, 
or a complicated inventory control 
system — the ability to balance to 
the penny is a must! 

There is, fortunately, a 
straightforward answer to the pro- 
blem. While it is easy to discuss, it 
requires a bit of trickery to imple- 
ment. If all values are carried within 
the computer as whole (integer) 
numbers, then there is no possibility 
of having roundng errors. The 
sacrifice you make, of course, is the 
necessity of performing all internal 
mathematical calculations in whole 
numbers, which requires that you, 
the programmer, remember where 
the decimal point belongs. Basical- 
ly, therefore, by multiplying each 
monetary value by 100, and taking 
the INTeger value of the resultant 
figure, the problem is solved. This 
opens up additional problems, as 
we shall see. 

Type in the following program: 
10 DEF FN VL(X) =INT(X* 100) 
20 INPUT "ENTER NUMBER:"; K 
30 K = FN VL(K) 

40 PRINT "NUMBER IS NOW: ";K 
50 GOTO 20 

RUN 



Try some of the following ex- 
amples: 

1.00 (rtn) 

The computer will respond with - 

100 

Now try this one: 

-2.99 (rtn) 

The Apple answers with 

-300 

OOPS! Try this one now- 

300.89 

Your answer: 

30088 

Clearly, the use of integer values 
does not in itself solve the problem. 
The same rounding error which plag- 
ed the initial examples is contained 
in the integer value. The library func- 
tion INT supplies the "...largest in- 
teger less than or equal to the given 
argument..." (quoted from the Ap- 
plesoft II manual). In the negative 
direction, the rounding error will 
cause the integer value to one 
number smaller (further negative) 
than the argument whenever there 
is a rounding error: in the positive 
direction the integer is similarly 
smaller when the computer under- 
rounds. 

Referring back to the example 
used at the beginning of this article, 
it is easy to see that the value of the 
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rounding error is extremely small, 
something like .00000001. Using the 
integer approach to eliminate the 
rounding problems, then, requires 
consideration for his small error. We 
are not concerned with values 
smaller than the second decimal 
place (pennies) in about 98% of 
business applications, therefore it 
is possible to add enough 
"cushion" to the integer conversion 
routine such that the small error 
which creeps in will never cause the 
Applesoft command INT to fall short 
during conversion. 

To illustrate this process, type 
CTRL C (rtn) and rekey line 10 as 
follows; 



10 DEF FN 
.0001) * 100) 
RUN (rtn) 



VL(X) = INT((X + 



Now try entering the previous ex- 
amples. 



Number Entered 

1.00 

-2.99 

300.89 



Value Returned 

100 

-299 

30089 



This function works for both 
positive and negative numbers, 
because the 'adder' of .0001 is 
enough to offset any internal under- 
rounding, both in a positive and a 
negative direction. Therefore, in any 
problem involving money calcula- 
tions, you should add the following 
to your program: 

15 DEF FN VL(X) ■ INT ((X +.0001) 
* 100) 



aaa INPUT "ENTER AMOUNT";C 
bbb C = FN VL(C) 

Line 15 defines the function; 

Line aaa requires keyboard entry 
of an amount which will be stored 
as variable C internally (you will 
naturally use what ever variable 
name you need here); 

Line bbb converts C to an integer 
value, using the previously defined 
function, and 'pads' the value read 
in before conversion to prevent 
underrounding. 



Remember — all internal 
mathematics must now be perform- 
ed with whole numbers. 

A natural question at this point 
would be, "How do I print out the 
figures so that they once again look 
like dollars and cents?" This is part 
two of our story. 



It would seem that by multiplying 
the integer number to a decimal 
number similar to the one originally 
typed in. Try it! 
Type the following - 
PRINT 30089* .01 (rtn) 
Your answer: 

300.89 



*** HRSK *** 
15 DEF FN 'JL(X) = INT <<X + .8661) * 186) 

15086 RBI SUBROUTM fflSK : REM ffiGUMEHT IS ZZ* : REM RESPONSE IS XU* 
15826 W. = LEH (22*) 
15323 XM$ = "*":XX* = ":XY* = V 
15336 XZ* = RIGHT* <ZZ*,2) 

15648 ON W. GOTO 15868, 15678, 15166, 15186, 15186, 15186, 15168, 15188, 15186 
15858 PRINT "ERROR CM INPUT UHUJE 1 GOTO 15128 
15866 XZ* = "8" + ffi*! GOTO 15118 
15878 IF LEFT* OZbt) = '-' GOTO 15898 
15888 GOTO 15116 

15898 XZ* = "8" + RIGHT* <XZ*,1):XX* = '-"• GOTO 15118 
15183 XX* = LEFT* (Z2MHS - 2» 

15116 xw* = m *m* xy* + xz* 

15128 RETUM Lming , 

*** CREfiTE EXEC FILE *** 

63999 D* = OR* <4): INPUT "Kfft OF TEXTFILE IS - "Jflft*: PRINT D*; D 0PEN 

;fiR*: PRINT D*;"URITE "JflR*: LIST 1,63998: PRINT D* 
{"CLOSE ";fifi*: DEL 63999,6399-9 

Listing 2 



*** CHECK PROTECT *** 

15598 REM SUBROUTINE OECKPROTECT : REM ARGUMENT IS ZZ* : REM RESPONSE IS XU* 

15518 IF LEFT* (ZZ*,1) = "-" GOTO 15568 

15526 nH = LEN (ZZ*) 

15538 XU* = "*":XV$ = »." 

15540 XZ* = RIGHT* <ZZ*,2) 

15556 ON Ki GOTO 15578, 15668, 15588, 15580, 15588, 15588, 15588, 15538, 15538 

15568 PRINT "ERROR ON INPUT URLUE":XU* = "! GOTO 15668 

15578 XZ* = "8" + XZ*: GOTO 15686 

15588 XX* = LEH* CZZ*,<ffc - 2)) 

15596 GOTO 15628 

15698 XU* = XU* + XV* + XZ* 

15618 GOTO 15636 

15626 XU* = »)* + XX* + XV* + XZ* 

15636 XT* = ******************* 

15648 XS* = RIGHT* <XT*,B) 

15656 XU* = XS* + XU* 

15668 RETURN 

Uttlng 3 



":B = 38 - LEN <XU*) 
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Try some additional values. 



Value 


Value 


-299 


-2.99 


-100 


-1 


180 


1.8 



.01 



Again, the result is unacceptable 
for business applications. Again it 
is clear that Applesoft BASIC, which 
handles scientific applications so 
well, is not equipped to yield usable 
formatting in dollars and cents. The 
author in fact, has seen commercial 
software which ignores this pro- 
blem, and gives answers with the 
same errors demonstrated 
throughout the article. While some 
programmers might not consider 
the rounding problem serious, how 
can a businessman issue a check 
for $1.8? 

The answer to the problem of 
restoring two decimal places to the 
internally generated integer values 
is a program which is named 
subroutine MASK. This program 
should be typed and saved, con- 
verted to a textfile, and exec'd into 
every business application where 
accurate dollars and cents calcula- 
tions are required. Listing 1 shows 
the program steps for MASK. Type it 
and save it under the name DOLLAR 
MASK (it is assumed that you have 
at least one disk drive). After it is 
SAVEd, you are ready to make a 
textfile out of DOLLAR MASK. To do 
this, if you have not already created 
a utility program for making text- 
files, there is another short program 
which must be typed, SAVEd, and 
made into a textfile. Prior to that ex- 
ercise, however, let's look at the 
contents of the program MASK. 

Line 15 is the value conversion 
function described earlier. 

Line 15010 establishes the 
number of digits in the variable. 

Line 15030 takes the right two 
characters (cents) and puts them in 
string variable XZ$. Note however 
that line 15060 puts a zero ahead of 
the value stored in XZ$ if XZ$ con- 
tains only one digit. Line 15090 
removes a minus sign if it became 
embedded in XZ$, and replaces it 
with a zero, moving the minus sign 
to the left of the decimal point in 
XX$. 

Line 15040 branches depending 
on whether the input string ZZ$ has 
1,2, or 3-9 digits. 



Line 15100 puts all except the 
cents value (which is now stored in 
ZZ$) into the 'dollars' area, XX$. 

To test this program, load it from 
the disk, and add the following addi- 
tional lines: 

20 INPUT "ENTER NUMBER: ";CA 

30 CA = FN VL(CA) 

40ZZ$ =STR$(CA) 

50 GOSUB 15000 

60 CAS = XW$ 

70 PRINT " THE ANSWER IS : ";CA$ 

80 END 

Now type RUN and try some 
values which might be represen- 
tative of a business application. Try 
some positive and negative values, 
so you can demonstrate that 
DOLLAR MASK really works. 

After you have become familiar 
with the logic, it is easy to add other 
capabilities to the DOLLAR MASK. 
For example, if you want to remove 
the floating dollar sign from the pro- 
gram, delete the first part of line 
15020, and drop XV$ from line 151 10. 
Another example is shown in Listing 
3, a routine for adding check protec- 
ting characters (*) to the left of the 
masked number. The asumption in 
this subroutine is for a field of 30 
digits, but you can easily increase 
or reduce it at your leisure. 

To put the finishing touches on 
your program, it will be necessary to 
convert DOLLAR MASK into a text- 
file. Then, it can be added to any 
program you write by typing EXEC 
MASK. If you are not comfortable 
with the EXEC portion of the Apple 
DOS manual, then the program 
listed in Listing 2 will do the job 
easily. To use this program, follow 
these steps: 

LType the program in listing 2 
TWICE, once with line number 10, 
and once with line number 63999. 
When typing it under line number 
10, change the LIST reference to 
LIST 63999. 

2.Type RUN. 

3. The computer will ask NAME 
OF TEXTFILE — , to which you 
should respond CREATE EXEC FILE 
(rtn). When the disk stops, you will 
have created a textfile named 
CREATE EXEC FILE. LOCK it, since 
it will permit you to set up standard 
subroutines as text files in the 
future. 



Now you are ready to make 
DOLLAR MASK into a textfile. If you 
have already typed it and SAVEd it 
to disk under the name DOLLAR 
MASK, LOAD it into memory, and 
follow the steps below: 

1. Type EXEC CREATE EXEC FILE 

2. Type RUN 63999 

3. Type Answer the inquiry with 
MASK (rtn) 

4. You now have subroutine 
MASK stored on disk for future use. 

Below is a summary on how to get 
MASK into your future business pro- 
grams: 

LWhen writing a program do not 
use line numbers 15 or 15000 to 
15120. 

2. Insert the disk with MASK on it 
and type EXEC MASK. 

3. You now have the subroutine 
and the function in your program 



4. Each time your program re- 
quires a value from the keyboard 
such as, for example, CA, add the 
following line after you read the 
value in: 

CA = FN VL(CA) 

5. If you have occasion to output 
money data to the screen or to a 
printer, add the lines: 

ZZ$ =STR$(CA) 
GOSUB 15000 
CAS =XW$ 
PRINT CAS 

6. You now have a string variable 
CAS to display the value previously 
stored in CA as a whole number. 

7. Remember — the argument to 
use before you GOSUB 15000 is ZZS, 
and the return argument is XW$ 



/X 



Barton M. Bauers is the Executive 
Vice President of LFE Corporation, 
Fluids Control Division. His pro- 
gramming background includes For- 
tran, PL-I, and Basic. Mr. Bauers 
holds a Master of Science Degree in 
Industrial Engineering with a con- 
centration in Operations Research. 
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BCD Input To A 6502 Microprocessor 



Many laboratory devices output data to displays in 
Binary Coded Decimal (BCD) format. Some techniques 
are presented for interfacing such devices to 6502 based 
systems, and a BASIC conversion program is provided. 



Richard Soltero 

Ciba-Gelgy Corp. 

556 Morris Ave. 

Summit, NJ. 07901 



In most scientific and medical 
laboratories there is a proliferation 
of analytical instrumentation and 
equipment. In past years these in- 
struments have used D.C. analog 
signals for transmission of their 
data to strip chart recorders. With 
the development of resident 
microprocessor chips in newer in- 
struments, on-board analog to 
digital converters (ADC) have 
become very popular. This innova- 
tion allows the use of digital panel 
meters (DPM) for readouts and for 
BCD (Binary Coded Decimal) output. 
Typically, four panel meters are us- 
ed for displaying the results from 
the analytical instrument so that 
values in the range -9999 to +9999 
(the leftmost meter has a ± sign ) 
can be detected. The obvious advan- 
tages of these developments are 
readability and the capability of 
recording data with remote digital 
printers or plotters. The BCD lines 
used in these applications can easi- 
ly be tapped to permit transferring 
data to a microprocessor and, in 
many cases, the newer instruments 
are supplied with a BCD output con- 
nector. 

The sixteen input lines of a 6522 
VIA are ideally suited for transmis- 
sion of parallel BCD (Binary Coded 
Decimal) information into a 
microproceser such as the SYM-1 or 
AIM-65. In our laboratory we have 
several analytical instruments with 
BCD output and are applying this 
technique for data collection and 
concentration. The hardware con- 
nections are relatively easy requir- 
ing only minimal proficiency with a 
soldering iron. Programming was 



also simple since BASIC can be 
used as the programming language 
throughout. 

Our initial application was to col- 
lect data from the BCD output con- 
nector of a Beckman U.V.-Vis. spec- 
trophotometer (Model 25-7). This is 
equipped with seven spectrophoto- 
metric cells which can be sequen- 
tially placed in the light path of the 
instrument. As light passes through 
the cell, it is absorbed by the com- 
pound of interest. Since the absor- 
bance by a compound in a solution 
is proportional to its concentration, 
this technique is useful for quan- 
titive analysis. The absorbance of 
the solutions in each cell is shown 
on the digital panel meters of the in- 
strument as each cell is positioned 
in the light path of the instrument. 
This digital information is 
simultaneously made available on 
the pins of the BCD output connec- 
tor. During the course of our ex- 
periments, the solutions in the cells 
are constantly changing and the ab- 
sorbance values, determined by the 
instrument, can be transmitted to 
the microprocessor and stored in 
RAM. 

The data is arranged on the BCD 
output connector of the instrument 
so that each digit is represented by 
four bits. In a four digit connector 
these digits are the Units (U), Tens 
(T), Hundreds (H) and Thousands (K). 
The total picture for the BCD con- 
nector is: 

Port A U(1) U(2) U(4) U(8) T(1) 1(2) 1(4) 
1(8) 

PortB H(1)H(2)H(4)H(8) K(1) K(2) K(4) 
K(8) 



Each of these 16 lines can be hard 
wired to one of the input pins of 
Ports A and B of the 6522 VIA, i.e. 
U(1)= Port A, Bit 0; U(2)= Port A, Bit 
1; H(1) = Port B, Bit 0; H(2) = Port B, 
Bit 1, ect. On the A connector of the 
SYM-1, PB6 is used for a keyboard 
function, however, all 16 pins are 
available from the user supplied VIA 
on the AA connector.(AII 16 lines on 
the A connector of an AIM-65 are 
available). 

The values that appear at these 
ports are PEEK'd into memory using 
a BASIC program. As will be shown 
in the sample progaram, the (2.4-7.0 
VDC) voltages appearing on the VIA 
pins are the BCD representation of 
what is displayed on the digital 
panal meters of the instrument. If 
the Hex keyboard and display on the 
SYM-1 are used to look at this data, 
it will be identical to the digital 
panel meters. If the AA connector is 
used, memory locations $A801 will 
contain the low order digits and 
$A800 will contain the high order 
digits. 

When the values are PEEK'd into 
BASIC, all hex numbers are con- 
verted into decimal numbers, and 
memory locations $A800 and $A801 
become locations designated as 
43008 and 43009, respectively. The 
BCD data also becomes a decimal 
representation after a conversion 
from hexidecimal. It becomes 
necesary at this point to convert the 
BCD data back to its original value 
since it is already decimalized when 
it appears on the input pins of the 
VIA. 

The conversion of each pair of 
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high and low order digits is done in 
subroutine 500. Initially the data is 
PEEK'd in and it is assigned to a 
BASIC variable. The variable is car- 
ried to the subroutine where the hex- 
adecimal representation of the data 
in converted to binary digits by a 
typical algorithm. In step 560, the 
binary digits are translated into the 
decimal number and this value is 
returned to the main line program. 

The low order digits are done first 
and then the high order digits. When 
they have been returned, the high 
order digits are multiplied by 100 
and added to the low order digits ; 
the BCD number is now in its 
original representation. This value 
is stored in an array for calculations 
later in the program. 

The BCD input data from the in- 
strument is always on the VIA pins 
and changes as the digital panel 
meters change. Since it is imprac- 
tical to collect data constantly, a 
method was devised to select the re- 
quired data. The instrument sends 
out a 28 VDC signal which is drop- 
ped to ground each time a new cell 
Is brought into position for an absor- 
bance reading. This voltage is step- 
ped down to 5 VCD signal which is 
dropped to ground each time a new 
cell is brought into position for an 
absorbance reading. This voltage is 
stepped down to 5 VCD using an op- 



tical coupler and is connected to the 
pin from Port A, Bit on the A con- 
nector.On BASIC, Port A is at loca- 
tion 40961). When a cell is changed, 
this bit stays low for about 0.5 
seconds. The BASIC program stays 
in a loop which PEEKs in the value 
of the input register A (IRA) each 
time through the loop (Program 
steps 50 to 100). When the 28 VDC is 
dropped to ground, a appears in 
Bit of this register, and the pro- 
gram break out of the loop and is 
sent into a 2 second delay 
subroutine. 

This gives the digital panel 
meters a chance to stablize before 
the program returns and Peeks in 
the BCD values that are represented 
on the DPM's. 

An external push button is con- 
nected between Port A, Bit 1 and the 
ground of the microprocessor. 
When this button is pushed, the cir- 
cuit is completed and BIT 1 is forced 
to zero. The program will PEEK in 
the values of ;the IRA until it 
changes. As seen above, when Bit 
goes to 0, the program goes into a 
data collection routine. Forcing Bit 
1 to zero is an external method of in- 
dicating to the processor that the 
experimental and data collection 
has finished. 

The data collected in this experi- 
ment has been formatted into a two 



dimensional array, (7 x 30). There are 
seven cells in the instrument and 
these can be read up to 30 times. 
The SYM-1 in this set up is a 4K ver- 
sion and restricts us to this data ar- 
ray size. There is an editing section 
in subroutine 600 where data can be 
corrected if this is necesary. After 
some input of instructions at step 
300, a simple ratio calculation is 
done for each data point and the 
resultant percentages are printed. 
These final steps are a demonstra- 
tion of how data can be treated by a 
program, although many other 
possibilities exsist such as having 
this data stored permanently on 
tape cassettes or having it transmit- 
ted directly to a larger main frame 
computer which can handle the data 
in much greater detail and can out- 
put formal reports of the experiment 
and the data. 

This experiment and the data col- 
lection is a relatively simple applica- 
tion of the potential of the 
microprocessor. The BCD data 
transmission does away with the 
necessity of dealing with analog 
signals which would require the use 
of an A to D convertor, and the use 
of BASIC greatly simplifies the pro- 
gramming tasks. It is hoped that 
this procedure will pave the way for 
the efficient and practical solution 
of future instrumental and data col- 
lection problems. 



Continued from page 15. 



In the world of microcomputing, 

There is one fact, not worth disputing. 

When Micro is read, 

It goes to your head, 

And your programs begin executing. 

D. Duckworth 
Las Vegas, NV 

A commuter tutored her suitor 

To program her microcomputer. 

He eloped with the terminal 

And her Micro journal 

Because the tutor's computer was cuter. 

H.I. Mathis 
Southfield, Ml 



There you have the ten best entries of the 1980 
Micro Limerick Contest. We agree that it is tough 
to narrow the best down to one, but please don't 
delay in voting for your favorite. We hope for even 
more votes than limerick entries. 

Once again, we thank all who entered the con- 
test, and we wish all of the "best ten" the very 
best of luck. 



Send your vote for the best limerick to: 

MICRO Limerick Vote 

Box 6502 
Chelmsford, MA 01824 
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10 PRINT'BCD INPUT PROGRAM (25-7)" 
20 DIM L*<8>rL<7r30>FB<8)rR<&> 

30 print'input experiment •': input ltjprint 

40 print'experiment # • »l* » tab< 30) r ■ absorbance" 

50 rem input section apao=data ready r apa1=end of run beo 

55 print'cell * 123456 7' 

57 print:cycle =i:print p cycle #■ 

60 for n=l to 71g0sub 6501rem delay 2 secs 

70 if peek(40961)=254 then 200! rem wait for cell change 

80 if peek(40961)<254 then 300irem end of run signal 

90 go to 70:rem continue looping until a bit is cleared 

100 gosub 650:rem delay 2 secs 

200 rem peek data inf convert to decimal* store in array 

210 z=peek( 43009): gosub 500:rem lsd to decimal 

220 lsd=z:z=peek<43008) jgosub sooirem msd to decimal 

225 L(NfCYCLE)=(LSD+Z*100)*100 

240 NEXT N 

245 C=CYCLE 

250 REM PRINTDATA FROM CURRENT CYCLE 

260 PRINTCfTAB(15)»L<l»C>FL<2»C>JL<3»C>iL<4,C>rL<5»C>FL<6FC>»L<7»C) 

270 CYCLE=CYCLE+1 

280 GO TO 60 J REM RETURN TO INPUT LOOP 

290 REM 

300 REM END OF RUN DETECTED 

310 PRINT'EXPERIMENT t*fL*»" COMPLETED" : PRINT 'NEED CORRECTIONS TO DATA? 

320 INPUT Y*:iF Y*="Y" THENGOSUB 600 : REM GO TO EDITING SUBROUTINE 

325 K=i:REM DATA CALCULATION SECTION 

330 PRINT'ENTER END OF RUN AND RAPID STIR CYCLE #'S": INPUT ER»RS 

335 PRINTtPRINTJPRINT'EXPERIMENT ♦•»L*f' CALCULATED % RELEASED" 

340 K=K+i:REM CYCLE COUNTER 

345 PRINT-CYCLE # "fK.-,« 

350 FOR N=l TO 6 

360 IF L<N,RS>-L(Nrl)<=0: THEN R<N)=0 

370 IF L(N»RS)-L(N»1)<=0 THEN 390 

380 R<N)=)L<N»K)-L(N»l>>/<L(NfRS)-L(N>l))*100 

390 NEXT N 

400 PRINT "CYCLE # 12 3 4 5 

6' 
410 IF K<ER THEN 340 

420 GO TO 700 

485 PRINTNfTAB(13>»R(l>fTAB<22)»R(2)fTAB(31)»R(3)f 

486 PRINT TAB(40)»R(4)fTAB(49>fR(5>fTAB(58)rR(6) 
500 REM PEEKED DATA TO BINARY TO DECIMAL 

510 for d=i to 8:b<d)=o:next D 

520 FOR D=l TO 8:X=Z/2:Y=X AND 32767 
530 IF X>Y THEN B(D)=1 
540 IF Y=0 THEN 560 

550 z=y:next D 

560 Z=B(1)+B(2)*2+B(3)*4+B(4)*8+(10*(B<5)+B(6)*2+B(7)*4+B(8)*8)> 

570 RETURN 

580 REM 

600 REM EDITING SUBROUNTINE 

610 PRINT'ENTER CELL *, CYCLE *? DATA": INPUT E,FrG 

620 L(EfF)=G:PRINT"ANY MORE?" : INPUT Y* 

630 IF Y*="Y' THEN 610 

640 RETURN 

650 FOR C0UNT=1 TO 750 : REM DELAY 2 SEC 

660 NEXT COUNT 
670 RETURN 
700 END 



The MICRO Software Catalog: XXIII 



Software announcements for the 6502 based systems 



Mike Rowe 

P.O. Box 6502 

Chelmsford, MA 01824 



Name: 


Death Run 


Name: 


System: 


Apple II, ITT 2020 


System: 


Memory: 


8K 


Memory: 


Language: 


Apple Soft 




Hardware: 


Apple II 


Language: 
Hardware: 



Fast moving real time version of 
last few mins of Starwars. Can you 
pilot your x-wing along and then into 
the canyon while skillfully avoiding 
TIE's firing laser bolts? And will 
your BOMB be shot before dropping 
into the exhaust and destroying the 
Death Star? 

Copies: Just released 

Price: Listing $6.00 

Cassette $7.00 
Author: Stephen Owens 

Available: Stephen Owens 

19 Wadeson Way Croft 
Warrington, Cheshire 
England 

Name: Super Artillery 

System: Apple II 

Memory: 16K ROM Applesoft 

or 48K RAM Applesoft 
Hardware: Apple il, Disk II 

Fast version of Artillery. It plays 
with two players, keeps score, 
sound effects, and other options. 
You and your opponent will battle it 
out by shooting at each other by 
entering angle and velocity of your 
missile while compensating for the 
mountain terrain and wind factor. 
Mountain profiles and missile tra- 
jectories are plotted in HI-RES 
graphics. 



Copies: 
Price: 
Author: 
Available: 



Just released 
$20.00 
Greg Stein 

Rainy City Software 
4360 SW Parkview 
Portland, Oregon 
97225 



Commodity File 
Apple II, Apple II Plus 
32K, Applesoft ROM 
48K, Applesoft RAM 
Applesoft II 
Disk II, 132 column 
printer (optional) 



Description: Stores and retrieves vir- 
tually every commodity traded on all 
Future's exchanges. A self- 
prompting program allowing the 
user to enter short/long contracts. 
Computes gross and net pro- 
fits/losses, and maintains a running 
cash balance. Takes into account 
any amending of cash balances 
such as new deposits or 
withdrawals from the account. In- 
stantaneous readouts (CRT or 
printer) of contracts on file, cash 
balances, P/L statement. Includes 
color bar graphs depicting 
cumulative and individual transac- 
tions. Also includes routine to pro- 
ofread contracts before filing. 

Price: $19.95 plus $2.00 p&h 

Terms: Check or money order 

Includes: Diskette, documenta- 
tion 
Available: Mind Machine, Inc. 
31 Woodhollow Lane 
Huntington, New York 
11743 

Name: Baudot Printer Driver 

Routine 
System: Apple II 

Memory: 16K 
Language: Assembly 

Description: Less than Vz K. 
Handles all special characters. Use 
to drive inexpensive teletype such 
as model 15, 19, 28, etc. 



Author: A.B. Buscaglia 

Available: A.B. Buscaglia 

2497 W. River Road 
Grand Island, N.Y. 
14072 

Name: Amateur Radio Oscar 

Orbital Predictions 
System: Apple II 
Memory: 16K 
Language: Applesoft II 

Description: Oscar 7 and 8. Lists 
data for each orbit for desired day. 
Displays antenna beam, azimuth 
and elevation data for specified qth. 
Can be used with Baudot Driver 
routine. 



Copies: 


New 


Price: 


$7.00 


Author: 


A.B. Buscaglia 


Available: 


A.B. Buscaglia 




2497 W. River Road 




Grand Island, N.Y 




14072 


Name: 


The Relationship Life 




Dynamic 


System: 


Apple II 


Memory: 


48K 


Language: 


Applesoft, Machine 


Hardware: 


Apple II Plus, Disk II 



Copies: 
Price: 



New 
$7.00 



Description: Now you can use your 
computer to help make your rela- 
tionships work. The disk includes an 
elevator which you control as you 
make choices about challenges in 
relationships. Includes animation 
and a special game called Relatopo- 
ly! Now you can circumvent trips 
like est and Lifespring, save money, 
and experience transformation in 
your relationships using this pro- 
gram at your convenience. The se- 
cond disk in our Life Dynamic Series 
(of 11 disks). Send for information. 
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Copies: Many 

Price: $15.95 

Includes: Disk, instructions 
Available: Avant-Garde Crea- 
tions 

P.O.Box 30161 

Dept.MCC 
Eugene, OR 97403 



Name: CHAT (Challenger Ter- 

minal) 

System: OSI Challenger 1 P and 
Superboard II 

Memory: 4k 

Language: Machine code, Basic 

Hardware: Modem and RS-232 
modification 

Description: An intelligent terminal 
with the ability to directly transmit 
data from cassette and transfer 
received data to cassette via an in- 
ternal buffer. This buffer 
automatically expands on systems 
with more than 4k to allow more 
data storage at a single time. 
Full/half duplex modes; selectable 
parity and stop bits. Chat has a very 
unique feature — 46 user definable 
6-state keys capable of generating 
all ASCII characters. Standard 
ASCII keyboard layout. All key 
changes are stored when CHAT is 
saved on tape. Also, the keyboard 
has the auto-repeat feature and a 
break key. 

Price: $24.95 

Includes: Cassette, manual 
Author: Charles A. Shartsis 

Available: Charles A. Shartsis 

9308 Cherry Hill Road 
College Park, MD 
20740 



Name: 

System: 

Memory: 

Language: 
Hardware: 



Flexipay 
Apple II 

48K ROM, RAM Ap- 
plesoft 
Applesoft 

Apple II, Disk II, Serial 
interface printer 



Description: A versatile payroll 
system. Payroll masterfiles for any 
number of companies may be 
created, edited and fully maintain- 
ed. Processes weekly, monthly, 
salaried, hourly, commissions, etc. 
Automatic group insurance deduc- 
tions plus two other auto deducts 
(credit union, etc.) of your choice. All 
taxes computed. Pay and nonpay 
adjustments (advances, etc.). Out- 
put includes masterfile, payroll 
summary with current, WTD and 



YTD data for each employee, com- 
pany totals. Labor summary, tax 
summary. Formatted checks and 
stubs available. MANY MORE 
FEATURES! 



Price: 



Includes: 

Author: 
Available: 



Name: 
System: 

Memory: 



Language: 
Hardware: 



$75.00 Disk plus $2.00 
handling TX residents 
add 5 percent sales 
tax. Sample output 
$3.00ppd. 

System disk, instruc- 
tions 

S. Prater, CPA 
INDATA INC. 
8222 Antoine, Suite 
103 
Houston, TX 77088 



Description: Complete package to 
create, compile and execute pro- 
grams that are written in the TINY 
PASCAL language. Includes line 
editor for source program main- 
tainance; Compiler to translate 
source to P-code and Interpreter for 
execution. 

Copies: Just released 

Price: cassette version 

$40.00, diskette ver- 
sion $35.00 

Author: Arnle Lee, Norm 

Draper 

Available: ABACUS Software 
P.O. Box 7211 
Grand Rapids, Ml 
49510 



Name: 
System: 



Memory: 
Language: 



Hardware: 



Soft-Sonic 

Apple II (or Plus ex- 
cept for speech pro- 
gram) 
32k 

SS Assembly 
Home control, timing- 
Applesoft 

Home control, speech- 
Integer 

Home control, speech 
- heuristics speech 
lab, Ultra sonic 
transducer and cable 
(included with pro- 
grams) Disk highly 
recommended 



Description: A collection of pro- 
grams to provide for home control 
using a BSR or Sears ultrasonic 
command console. SS is a 
relocatable machine language 
subroutine that produces all the 
codes, tones, and delays required to 
communicate with the BSR. Home 
control, Speech provides for verbal 
control of up to ten lights and ap- 
pliances with vocabularies for two 
persons automatically saved and 
exchanged from disk. Internal soft- 
ware clock; allows for several hun- 
dred NAMED sequences. Much 
more. 



Price: 



Tiny Pascal 

Pet 16K/32K, Apple II Includes: 

w/DOS 

Pet-16K/32K New 

ROMS, Apple 32K A.S. 

ROM 48K A.S. RAM 

Basic and Assembly 

Pet cassette or disk, 

Apple II disk only 



Author: 
Available: 



Name: 
System: 



Memory: 
Language: 



$39.95 plus $2.00 s&h 

GA residents add 4 
percent sales tax. 
SS, Home Control 
(Speech), Home Con- 
trol (Timing), SS- 
Relocator, all on disk 
(tape by request) and 
the ultra-sonic 

transducer complete 
with cable. 
John Blankenship 
B.A.C.E. 
P.O.Box 52785 
Atlanta, Ga 30355 

Data Factory 2.2 
Apple 1 or 2 disk 
Drives, or Hard Disk 
(Corvus.Lobo) optional 
printer 

48k RAM, ROM card, 
Language Card 
Applesoft 



Description: A data base file pro- 
gram of unique utility. It allows the 
user to create a file consisting of 
desired catagories (columns or 
fields) in which various sorting and 
printing procedures can be ac- 
complished. The program can be 
copied and lists for user modifica- 
tion. It uses either one or two disk 
drives and operates with or without 
a printer. A unique feature of this 
program is it's construct append 
features that allows the user to 
reformat and structure the file 
names, locations, lengths, and 
order after data has been entered. 
Many features! 



Price: 


$100.00 (Hard disk ver- 




sion slightly more) 


Includes: 


Disk, program and 




manual 


Author: 


William Passauer 


Available: 


Andent Inc. 




1000 North Avenue 




Waukegan, I L 60085 



Name: 


PBASIC-DS 


Includes: 


System: 


Apple II 




Memory: 


32K ROM, 48K Ap- 






plesoft 


Author: 


Language: 


Applesoft 




Hardware: 


Disk 


Available: 



Description: A preprocessor for In- 
teger and Applesoft programs. Pro- 
grams are written using a mixture of 
BASIC statements and pseudo- 
statements that facilitate the im- 
plementation of structured logic. 
Nine pseudo-statements are sup- 
ported, including IF...ELSE...ENDIF, 
...ENDWHILE...ITERATE...UNTILand 
two forms of the case structure. All 
BASIC statements also be used. 
Over a dozen commands are includ- 
ed in the system. The translation 
routine not only produces a BASIC 
version of the program but also lists 
the structured program with 
automatic indention. 



Copies: 
Price: 



Includes: 



Author: 
Available: 



Name: 

System: 

Memory: 

Language: 
Hardware: 



Just released 
$35.00 (Texas 

residents add 5% 
sales tax) 

System, Sample pro- 
gram on diskette. 
Documentation. 
Robert F. Zant 
Decision Systems 
P.O. Box 13006 
Denton, TX 76203 

L.I.S.A. 

Apple II 

V1.5C: 48k 

V2.0: 64k 

Machine 

Apple II, Disk II, 

Language card (V2.0) 

other options also 



Description: Lazer Systems' Interac- 
tive Symbolic assembler is interac- 
tive assembler. Syntax checking is 
performed at edit time resulting in 
immediate feedback for all syntax 
and addressing mode errors. Incor- 
porates several special features 
such as the ability to store data in 
inverted or blinking mode, built-in 
disk operations, etc. Tokenizes the 
textfile so that less memory is re- 
quired to hold a textfile in memory. 
V1.5C has room for 2,000 lines, V2.0 
has room for 3,000. More can be 
given from the disk drive. 



Name: 
System: 



Memory: 

Language: 

Hardware: 



Copies: 
Price: 



Just released 
V1.5C $34.95 
V2.0 $49.95 



Diskette w/software, 
documentation 
manual (100pgs) 
Randall Hyde/Lazer 
Systems 

Programma Interna- 
tional, Inc. 
3400 Wilshire Blvd 
LA., CA 90010 

Interactive Statistics 
Apple II Plus, or Apple 
II with Applesoft Firm- 
ware Board 
48KRAM 

Apple Integer BASIC 
TV set and RF 
Modulator or Video 
Monitor, Apple disk 
drive, Optional printer 
and interface board 



Description: An analysis package 
designed for teachers and 
businessmen who do not have ac- 
cess to a large computer. The entire 
system is interactive, and its 
features include menu prompting 
and data stored in user-named 
variables. Available statistical 
routines range from the simple to 
the complex. Results can be 
displayed or printed in either colum- 
nar format, or plotted as histograms 
or simple X-Y graphs. 

Price: $149.00 

Available: Serendipity Systems 
225 El mi ra Road 
Ithaca, N.Y. 14850 

Name: Advanced 

Mathematical 
Routines 

System: Apple II plus or Apple 

II w/Applesoft Firm- 
ware Board. 

Memory: 48K RAM 

Language: Apple Integer Basic 

Hardware: TV set and RF 
modulator or Video 
monitor 

Description: Designed for use by 
professionals in the areas of 
research, business, and operations 
management. It consists of a set of 
mathematical tools which provide 
answers to a variety of common 
complex numerical problems in 
relatively short periods of time. The 
package includes routines for linear 
regression, matrix operations, 
numerical calculus, differential 
equations, and optimization. In ad- 
dition, a routine is provided for the 



plotting of equations. Data sets, 
which are automatically stored on 
the diskette, can be recalled on de- 
mand. 



Price: 
Available: 


$149.00 

Serendipity Systems 
225 Elmira Road 
Ithaca, N.Y. 14850 


Name: 
System: 

Memory: 

Language: 

Hardware: 


Bowling Alley 
OSI C-1P 
Superboard II 
4Kup 
Basic 
Standard 



Description: Full graphics bowling 
game. Draws land and score sheet. 
Fast action and fun. Have many 
other programs for sale or trade. 
Send list of your programs. 

Copies: Just released 

Price: $7.95 

Author: Miles Hufford 

Available: M. Hufford 

6715 E. Doubletree 
Scottsdale, Arizona 
85253 

Name: Musical Computer 

One and Two 
System: Apple II 

Memory: 32K 
Language: Integer Basic 

Description: A two-program 
cassette tape which explains the 
fundamental of music — including 
musical symbols and language, 
note reading on both the treble and 
bass clefs, telling time, note values 
and rests, piano keyboard, dynamic 
and tempo markings, signs and 
symbols and enough PRACTICE and 
TESTING opportunities for both the 
beginning and advanced student. 
Written by a M.A. educator with over 
20 years of music experience. This 
is truly an alternative to music 
education, accompanied with color- 
ful musical descriptions and 
musical sounds. 



Copies: 
Price: 



Author: 
Available: 



Many 

$34.95, $1.00 s&h (Ml 

residents add 4 per- 
cent sales tax.) 
Myra Marshall 
Computer Applica- 
tions Tomorrow 
P.O.Box 605 
Birmingham, Ml 48012 
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AT LAST 

ENHANCE THE FULL CAPABILITIES OF YOUR DISK II 

SOFTOUCH ANOUNCES THE 

" DISC MANAGEMENT SYSTEM " 
EIGHT PROGRAMS ON DISK TO PROVIDE THE USER WITH A 
COMPLETE UNDERSTANDING OF THE DISK DRIVE COMMANDS 
PLUS A UTILITY PACKAGE TO INDEX AND CATAGORIZE ALL 
PROGRAMS WRITTEN FOR THE APPLE II COMPUTER. THE 
SYSTEM PROVIDES FULL SEARCH , EDITING AND DATA 
TRANSFER CAPABILITIES. 

A TWENTY-SIX PAGE BOOKLET PROVIDES DETAILED , 
EDUCATIONAL TECHNIQUES GIVING A THROUGH UNDERSTAND- 
ING OF ALL DOS COMMANDS. 

INCLUDED ARE SUCH TECHNIQUES AS: 

* INITIALIZATION OF TEXT FILES 

* WRITING S READING OF TEXT FILES 

* CREATING TEXT FILES 

* EDITING FILES 

* TRANSFERRING DATA TO OTHER DISKETTES 

* LISTING OF DATA FILES 

* SEARCHING DATA BY VARIOUS OPTIONS 

A DOCUMENTED LISTING PROVIDES LINE CHANGES FOR 
ADAPTING THE SYSTEM TO PREFORM NUMEROUS OTHER 
APPLICATIONS. 

THE BOOKLET IS WRITTEN IN A MANNER WHICH MAY BE USED 
BY THE NOVICE AS WELL AS THE EXPERIENCED PROGRAMMER. 
DOZENS OF PROGRAMMING TECHNIQUES ARE SHOWN AND FULLY 
DOCUMENTED. ALSO INCLUDED SEPARATELY, IS A PROGRAMMERS 
AID GIVING QUICK REFERENCE TO INTEGER. APPLESOFT AND 
DOS COMMANDS WITH ILLUSTRATIVE EXAMPLES. 

SYSTEM REQUIREMENTS: DISK II G APPLESOFT TAPE OR ROM CARD 

PRICE $24.95 (PROCESSED 6 SHIPPED WITHIN 4 DAYS) 

SEND CHECK OR MONEY ORDER TO: 



SOFTOUCH 
P.O. BOX Sll 
LEOMINSTER, MASS. 01453 



tan 



if Sr^fr Compub 

&. Gambling 
Magazine 



■<"V:- 



PRESENTS: \ 

PROBABILITY 
HANDICAPPINB 

DEVICE I 

A 16K BASIC PROGRAM FOR: 

HORSE RACE HAMDICAPPIKB! 

This amazing program was written by a protessional software 
consultant to TRW Space Systems and is being introduced by the 
publishers ol Computers and Gambling Magazine. "PHD-1' is a 
large complex basic program requiring a lull 16K. It is carefully 
human lactored tor easy use. PHD-1 is a comprehensive horse 
racing system lot spotting overlays in thoroughbred sprint races 
(less than 1 mile). You simply sit down with your computer and 
the Racing Form the night belore the race and answer 5 or 6 
questions about each horse's past performance. Your computer 
then accurately predicts the win probability and odds-line lor 
each horse allowing you to spot overlaid horses while at the track 
The users manual contains a complete explanation ol overlay bet- 
Statistics tor thousands ot horses were used to develop this 
handicapping system The appendix ot the manual contains a 
detailed lab run ol a 100 consecutive race system workout show- 
ing an amazing 45% positive return (45* lor each $1.00 
wagered) A graph is also included showing PHD-1 s close tit to 
the ideal predicted probability vs actual win percentage curve. 
This program leatures. D Win probability and odds tor each 
horse □ Verification display ol each horse's parameters prior to 
entry tor easy error correction D Bubble-sort routine tor final 
display CFacllity for line printer output Cassette ARCHIVE 
routine to store PHD-1 's output for later analysis n Complete 
users manual. . 

The user's manual may be ordered seperately for your purusal 
lor $7.95 and will be crediled if you purchase PHD-1. 
PHD-1 User's Manual and 16K Cassette for; 
Apple II Applesoft. Challenger (Specify Type), 

TRS-801 Level II J»-» 

Make checks payable lo. Ca. res. add 6% 

JOE COMPUTER 

22713 Ventura Blvd.. Suite F, Woodland HH1». CA 91384 

•BE A WINNER: Get on the Computers and Gambling Products 

Magazine mailing lisl tor $3.00 and receive available back issues 

trss-SO is a registered trademark ot randy Corporation. 



AIM 65 
SUPPORT PACKAGES 
Hardware 
8K Memory Expansion Card 

2114 Rams 

Comes ready to use on 4K machines 

Includes 16 2114-300 N. Sees 
Static Rams Approx. 5"x 7" board 

Software 

Cassettes Requiring 4K Machine With 8K BASIC 

BASIC Techniques 

Self Teaching for the beginner $9.00 

Business Library 

Includes: Risk Anaylsis, Income statement, Interest, 
Rates, Analysis, Budget $18.00 

Math Library 

Includes: F Ratio, Correlation Coefficient, Curve Fit, 
Determinants, Differential, Equations, 
Derivative^ 5.50 

Games Library 

Includes: Craps, Checkers, Student, Blackjack, Tic 

TacToe. $14.95 

Cassettes Requiring IK Machine 

Upper Memory Software 
Clocks 

Compatible with BASIC, Specify Memory Size, 
Comes with Utilities and User Tips. $8.30 

Send $1.00 for a Copy of LINKAGE GENERAL A 
Newsletter supporting AIM 65 Users. Articles re- 
quested. SYSTEMS DESIGN 

P.O.BOX 641 
ORANGE, CA 92666 

(714)771-4038 

•CA residents add 6% sales tax. 
Prices subject to change without notice. 
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WHY NOT TRY AN IRISH GAME? 



* 
* 



These games are unique! They are not copies or adapta- * 
tions of games with which you may already be familiar, jf. 
What is more — we give you a TOTAL GUARANTEE — if _ 
you can beat the Computer in "SUCKER" — without ^ 
listino! (See how we trust you?) — We will refund your * 
cash "IMMEDIATELY! * 

Both games on one Disk for Apple II. Only $40.00 
inclusive of Airmail express delivery, dispatched same- * 
day. * 

Sucker is a brand new game of Chance. You control the * 
operations but your Apple will beat you! Nothing is fixed * 
— the Apple predicts a toss of the coin, so do you. You jjl, 
toss the coin but your Apple will get its predictions right 
at least twice as often as you! It has to be tried to be f 
believed! * 

* 
Think is a new card game, unlike any other computer 
card game. It has nine optional levels and a complete ^ 



set of control options such as card shuffles, who goes 
first, one or more players, you play the cards, or Apple 
plays the cards, etc. 

NOT HOURS OF PLAY - BUT WEEKS OF PLAY! 

Same day dispatch, airmail. Check, Cash or Master 

Charge. 

Ulster Management Centre 

Rathlln Island 

Co. Antrim 

Ireland 

Telephone (02657) 71220 

Dealers Enquiries Welcome 



* 
* 
* 
* 
* 
* 

* 
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Continuing bibliography of 6502 related material 



Dr. William R. Dial 

438 Roslyn Avenue 

Akron, OH 44320 



668. The Seed 1, No. 5 (October 1979) 

Brown, Bob, "Sines and Cosines," pg. 11. 
Program illustrating the use of the sine/cosine tables in 
the Apple. 

Pope, Gene, "Tape Recorder Monitoring," pg. 12. 
Simple hardware mod for your recorder enables you to 
monitor Apple programs as they are read in or out. 

669. The Seed 1, No. 6 (Novemeber 1979) 

Foens, Bob, "Applesoft Music/Tone Subroutine," pg. 5. 
Apple tone routine. 

McClure, Alan, "Write Protect Defeat," pg. 12. 
A mod for the Apple Disk II. 

Baga, Dennis, "Algol II Language for the Apple II 
Computer," pg. 13. 

A translator for the Apple. 

Reese, Chuck, "Analytical Apple," pg. 16. 
Derivatives and Integrals on the Apple. 

670. The Seed 2, No. 1 (January 1980) 

Foens, Bob, "Deck of Cards," pg. 5. 
How to select non-recurring random numbers. 

Wagner, Roger, "Exceeding the Speed of Light with your 
Apple II," pg. 8-9. 
Speed up your programs. 

McClure, Alan R., "Reset Fix that Doesn't Void your War- 
ranty," pg. 14. 

Simple, easy to install hardware modification. 

671. Interface Age 5, No. 4 (April 1980) 

Roybal, Phil, "Data Base Management for the Apple II," pg. 
94-101. 

Description of File Cabinet. 

Fox, Tom, "System of the Month - OSI C3-C," pg. 102-103. 
A review. 

672. Southeastern Software Newsletter, Issue 16 (Feb. 1980) 

McClellan, George, "Peeks, Pokes, and Calls," pg. 1-4. 
A tutorial on machine language. Apple. 

Carpenter, Chuck, "The Whys of HEX Dump," pg. 4-7. 
Learn all about memory dumps on the Apple. 

Hartley, Tim, "Customize your Diskettes," pg. 7-8. 
A Novel Hello proaram for the Apple Disk. 
Short Applesoft program with graphics. 

Anon., "Cube," pg. 9. 

Pascal Turtlegraphics program. 

Gustafson, Ralph D., "Machine Language Subroutine," pg. 
10. 

Subroutine to fetch the Input Output Block for the use of 

the Machine Language Programmer. 



673. The Apple Shoppe 1, No. 5 (January 1980) 

Smith, Brian, "Fun With Pascal," pg. 7-8. 

A short program that illustrates some basics of program- 
ming in Pascal. 

Anon., "Apple Assembly, Part 1," pg. 9-13. 
A tutorial for the Apple Assembly program. 

Crouch, Bill, "Down to Business," pg. 14-16. 
Some routines useful in business applications of the Ap- 
ple. 

Anon., "Graphics in Assembly," pg. 17-20. 

How to draw graphics from machine language programs. 

674. The Paper 3, Issue 1 (February 1980) 

Hennig, Doug, "Speeding Up the Print Statement," pg. 7-9. 
Speed up your PET by a factor of four. 

Lee, Arnie, "Floating Point Numbers," pg. 7-9. 
All about Floating point and fractional numbers on the 
PET. 

Sung, Wayne, "Himondis on a 16k PET," pg. 13-15. 
A utility for the PET. 

Kalmbach, Chris, "Modifications for PIMS" pg. 18. 
Modifications for the PET information management 
program. 

Sung, Wayne, "HIMONDIS and ROM Test Revisited," pg. 
19-21. 

Modifications for the PET dissembler and the ROM 

memory test. 

Turco, Fran, "Better List," pg. 23-26. 
An improved LIST routine for the PET. 

675. Fort Worth Area Apple User Group 1, No. 7 (March 1980) 

Meador, Lee, "Dissassembly of DOS 3.2," pg. 1-13. 
Another installment of the Editor's comprehensive series, 
Apple. 

Hoggatt, Ken, "Monitor commands in BASIC," pg. 14. 
Enter monitor commands from Basic on your Apple. 

Keyes, Patricia, "A Strings Expression Compiler for Ap- 
plesoft," pg. 14. 
An easier way to use data tables. Apple. 

Crossman, Craig, "Fast DOS," pg. 15. 

Init your Apple Disks in half the regular time. 

676. The Seed 2, No. 2 (February 1980) 

Davis, William, "Counting Files," pg. 5. 
Count the number of Disk files on the Apple II disk. 

Foens, Bob, "GEEJO," pg. 11. 
Several short routines for the Apple. 



Wagner, Roger, "Speeding in Applesoft," pg. 13. 
Speed up program execution by bypassing 
statements. 
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Patton, J.W., "Applesoft/Prog. Aid #1 Music," pg. 14. 
Modification of a program to use the Programmers Aid in 
Music on the Apple. 

677. Stems From Apple 3, Issue 2 (February 1980) 

Hoggatt, Ken, "Ken's Korner," pg. 3,7. 
Similarities between Basic and Pascal. 

Pfeiffer, Jim, "How Applesoft Stores String Arrays and A Tip 
on How to Clear String Array Space," pg. 4-6, 9. 

Byerly, Kent, "Literal Input Fix," pg. 7. 
An improvement on the Literal Input for Apple. 

678. Abacus Newsletter 2, Issue 2 (February 1980) 

Anon., "Hi-Res Flag and Music," pg. 4. 
A graphics program for the Apple II. 

Crossman, Craig, "Colossus," pg. 6-7. 
Listing for a new game for the Apple. 

Crossman, Craig, "Apple Tricks," pg. 7. 

How to make your Apple programs unlistable. 

Anon., "Floppy Disk," pg. 8. 

All about Floppy Disks, hard vs. soft sector, etc. 

Crossman, Craig, "Fast DOS," pg. 9. 
Speed up your Apple DOS. 

Anon., "Introduction to Simulation," pg. 10-14. 
A good tutorial on Simulation for the Apple. 

Wright, Don, "Disk II Utility: Disk Map Display," pg. 15-17. 
An interesting disk utility for the Apple Disk System. 

Brown, A.R.,Jr., "Patriotic Display," pg. 18-19. 
A graphics and music program for the Apple. 

Schwartz, Dana J., "Random Spiro," pg. 19. 

A short program for complex Hi-Res graphics on the 
Apple. 

679. MICRO No. 22 (March 1980) 

Pruetz, Harry L., "Apple II Floating Point Utility Routines," 
pg. 7-11. 
A guide to Applesoft Basic floating Point routines. 

Finn, Kenneth, "A Machine Language Screen Print Program 
for the Old or New PET," pg. 13-14. 

Program which gives user control over the PET screen. 

Carlson, Edward H., "Polling OSI's Keyboard," pg. 17-18. 
The Polled Keyboard technique permits the user to define 
the function of various keys to his own specifications. 

Kershner, Carl J., "A Digital Thermometer for the Apple II," 

pg. 21-23. 
Use thermistor probes connected directly to the Apple II 
Game I/O Connector and convert to Celsius or Fahrenheit. 

Lary, Richard A., "Challenger II Cassette Techniques," pg. 
25-26. 

Storage and retrieval of sequential data files on cassette. 

DeJong, Dr. Marvin, "Beginning Boolean: A Brief Introduc- 
tion to Boolean Algebra for Computerists," pg. 29-33. 
A tutorial on computer math and logic functions. 

Vrtis, Nicholas, "Program Checksum Calculator," pg. 39-40. 
SYM-1 checksum program. 

Tripp, Robert M., "Ask the Doctor," pg. 42-43. 

A technique to solve a problem in the AIM TTY service, 
and a program for easy tape retrieval on the KIM. 

Guest, Ronald A., "Clocking KIM," pg. 45-48. 
A tutorial involving techniques for a KIM clock program. 

McLean, William, "A Home Message Center," pg. 53-55. 
Use your Apple as a bulletin board for the family. 



Bullard, Gary J., "Stop That PET!," pg. 57-61. 

How to stop the run-away program without hitting RESET. 

Rowe, Mike (Staff), "The MICRO Software Catalogue: XVIII," 
pg. 63-65. 
MICRO lists 14 new 6502 programs. 

Dial, Dr. William R., "6502 Bibliography, Part XVIII," pg. 
67-70. 

About 150 more references to the 6502 literature. 

680. Call — Apple 3, No. 2 (February 1980) 

Golding, Val J., "Lower Case and Graphics Printer Routine," 
pg. 7-23. 

Apple program for printing using the Integral Data printer. 

Cadmus, Ray, "Formatted Print," pg. 25. 

Formatted print on the Apple for money programs. 

Capes, Nelson R., "Apple II Disassembler," pg. 31. 
Improved disassembler for the Apple. 

Vaughan, Craig, "Program to Modify the BIOS Modules," pg. 
32-33. 

Modification for the Apple to remedy the inability to 
display lower case from the Pascal system. 

Wagner, Roger, "APPENDectomies in Integer and 

Applesoft," pg. 34. 

How to remove Appended Binary data from basic pro- 
grams. 

Golding, Val J., "Routine to Print NBumbers above 32767 in 

Integer Basic," pg. 34. 
Special routine for the Apple. 

Winston, Alan B., "The Multi-Lingual Apple," pg. 35-36. 
Notes on Pascal for the Apple. 

Vaughan, Claudia M., "Bridging the Gap," pg. 36-37. 
A tutorial to help you over the rough spots in Pascal. 

Williams, Rick, "Random Drill Tutorial," pg. 38-40. 

Enter your own question/answer pairs in this drill pro- 
gram. 

Foote, Gary and Barnes, Keith, "File Cabinet Improvements, 
Ad Infinitum," pg. 41-42. 

More modifications for this popular program. 

Hyde, Randall, "The Apple Doctor," pg. 43. 

More on Pascal including printer output and turnkey 
operatior . 

Huelsdonk, Bob, "Formatting Re-Visited," pg. 48. 
A 'print using' routine for the Apple. 

Golding, Val J., "Crawler," pg. 52. 

A short routine to print a message which crawls across 
the Apple screen. 

681. Rubber Apple Newsletter (September 1979) 

Throop, Gilbert D., "Rounding Off," pg. 2. 

Short routine for rounding off numbers on the Apple. 

Wysocki, Tom, "Billboard Display Routine," pg. 2. 
Move your message across the Apple screen. 

Gabelman, Ken, "Sort-File," pg. 3. 
A sort routine for the Apple. 

682. OSI User Independent Newsletter, No. 2 (March 1980) 

Curley, Charles, "OS-65U Notes," pg. 1-2. 

Notes on the use of the COPYFI and LABLE programs. 

Curley, Charles, "OS-65D Notes," pg. 2-3. 

How to use dual disk drives to load games for visitors. 

683. Stems From Apple 3, Issue 3 (March 1980) 

Hoggatt, Ken, "Ken's Korner," pg. 3. 

More about the similarities of Applesoft and Pascal, 
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giving examples of programs in each language (String 
Demo). 

Sittel, Randy, "Hobby Hardware," pg. 5-6. 

Using game output ports (Part I) — Light LEDs with the 
Apple. 

Anon., "Applications Note for Pascal," pg. 7-8. 
A fix for the LONG INTEGERS in the Apple Pascal 
language. 

Hoggatt, Ken, "Statistics for Throwing Three Dice," pg. 9. 

Hoggatt, Ken, "Read Names," pg. 13. 
A sort and search routine for Names or lists on a data 
statement. 

684. Kilobaud Microcomputing, No. 39 (March 1980) 

Baker, Robert W., "PET Pourri," pg. 7-9. 

Discussion of the BASIC SWITCH, Digitizer tablet, a Date 
Book program, etc. 

Anon., "OSI Small Systems Journal," pg. 10-13. 

The first of a two part series on multiple user systems. 

Flippin, Allan, "Assembly-Language Benchmarks," pg. 

26-35. 

Compared against a number of 8-bit microprocessors as 
well as 16-bit systems and the IBM 370-145, the 6502 
system was second only to the 370 in execution speed. 

Derfler, Frank J., "Dial-Up Directory," pg. 50-51. 
All about the use of Modems and Bulletin Boards and 
shared use of large data base systems. 

Rowe, John and Grossman, Chris, "Multiple Page Graphics 
for the Apple II," pg. 66. 

A program to flip through the pages of your Apple. 

Wadsworth, Nat, "It's Time to Draw the Line," pg. 78-80. 
Here's how to draw a straight line with the PET. 

Paturzo, Bonaventura, "Stand-Alone Video Terminal," pg. 

94-97. 

A SYM-1 microcomputer system using a large-scale in- 
tegration CRT controller. 

Bramblet, Timothy L, "Keyed-Up PET," pg. 132-133. 
Add a keyboard to your PET for less than $60.00. 

Buszta, Ron, "An Apple a Day Keeps a Kid Occupied," pg. 
172. 

Experiences with a five year old and a computer. 

Putney, C.B., "Stacking Program," pg. 184-185. 

How to stack multiple games or programs in one Basic 
load. 

Gordon, Hal T., "Instruction Sets Examined and Compared," 
pg. 192-194. 

Comparing the 6502, 8080, Z-80, 6800 and 2650 

microprocessors. 

Wayne, Phil, "Pascal Workshop," pg. 20-22. 

How to patch the Pascal BIOS to change your Apple I/O 
system. 

Chavez, Franklin, J., "Eight Queens Problem, Apple II Style," 
pg. 23-26. 
A Pascal solution to the Eight Queens Program. 

685. Rubber Apple Newsletter (November 1979) 

Musgrave, J. Scotty, "Apple Monitor," pg. 2. 
A tutorial on the Apple Monitor. 

686. Rubber Apple Newsletter (January 1980) 

Musgrave, J. E., "DOS Identifier," pg. I 
Simple routine for identifying the DOS in use. 



687. Compute No. 3 (March/April., 1980) 

Stuart, Chuck, "A Preview of Commodore's New Disk Basic 
4.0," pg. 10-11. 

Describes 14 new disk commands. 

Isaacs, Larry and Compute Staff, "Enhancing Commodore's 
Word Pro II," pg. 15-16. 

Upgrading the Word Pro II program for a Commodore 

Business Machine system. 

Wadleigh, Hal, "File Conversion on the Commodore 2040 
Drive," pg. 18-21. 

Program listing for a conversion program. 

Bruey, Alfred J., "Using the GET Statement on the PET," 
pg. 23-24. 

How to use the GET statement instead of INPUT to enter 

data. 

Butterfield, Jim, "Machine Language," 
General discussion of machine language for the PET/CBM 
systems. 

Isaacs, Larry, "UTINSEL: Enabling Utilities," pg. 34-37. 
Program, with listing, to provide a flexible solution to 
several PET problems involving CHARGOT, WEDGE, etc. 

Lindsay, Len, "Identify Your Atari Colors," pg. 39. 
A short program to identify on the ATARI. 

Semancik, Susan, "Manual Alphabet Tutorial on a PET," pg. 
4148. 

Use the PET to help the handicapped. Drawing hands for 
sign language. 

Pratto, Marlene, "The Learning Lab," pg. 51-53. 
This program will help teachers calculate term and partial 
term grades, means, deviations, etc. 

Heise, David R., "Light-Pen Selection from Large Menus on 
the PET/CBM Screen," pg. 60-62. 

A light-pen can select from menus of over 90 items. 

Kemp, D.P., "Naming Apple Cassette Files," pg. 68-69. 
A short program to support Named files on Apple casset- 
tes. 

Wiplich, Mike, "On Interfacing an Apple II to A Heathkit 
H-14," pg. 69. 

Software compatible with the Apple DOS is given for us- 
ing the Heath printer. 

Lindsay, Len, "ATARI Program Saving," pg. 76. 
Improve your tape SAVE/READ routine. 

Bunker, W.M., "Lower Case Descention," pg. 81. 
Improve the lower case program for your PET. 

Wuchter, Earl H., "Comments on Null Return (LINPUT) 
Simulation," pg. 81. 

Improvements for this PET Program. 

McCarthy, C.A., "Cheep Print-Hard Copy for Soft Cost," pg. 
82-86. 

Use your Audio Cassette as a substitute for hard copy us- 
ing the PET. 

Lindsay, Len, "Direct Screen Input," pg. 88. 
Use your PET Video screen as input into your programs. 

Herman, Harvey B., and Pate, Charles B., "A Versatile Serial 
Printer Interface for the PET," pg. 90-91. 
A simple design for a serial interface. 

Strasma, Jim, "MAE, a PET Disk-Based Macro Assembler," 
pg. 93. 

This assembler, compatible with CBM and other printers 
offers many unique features. 

Strasma, Jim, "The PET Rabbit," pg. 94. 
The PET Rabbit is an extension of the PET operating 
system. 
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MICROScope Outlined 



MICRO publishes its first MICROScope review. With its appearance we would like to point 
out the seriousness of our review intentions. Shown below is a copy of the Reviewer's 
Responsibilities involved when a review is written. Manufacturers will be provided with suffi- 
cient time to read the review before it is published. 

If you are a manufacturer with a product you would like to submit for impartial review, 
please contact us and we shall send you all our MICROScope information and necessary 
forms. 

The Reviewer's Responsibilities 

In agreeing to evaluate a product and write a MICROScope product review, you accept a 
definite set of responsibilities. It is important that you seriously consider the impact of this 
undertaking. If at any time, for any reason, you feel that you may not be able to completely 
handle the responsibilities as outlined below and in the MICROScope Product Reviewer 
Agreement, please immediately contact the MICRO staff and resign the particular reviewing 
assignment. This will not be considered a failure on your part, but rather will reflect well on 
your sincerity and honesty. It will in no way jeopordize or disqualify you from other review 
assignments. 

Responsibility to the Reader. Due to the method by which unbiased reviews are being 
generated for the MICROScope section of MICRO, readers will be placing great faith in the 
accuracy, validity, completeness, and fairness of the reviews. Many readers may base their 
decisions to purchase, or not to purchase, an item on the review which you give it. They are 
counting on the reviewer to provide them with all of the detailed information about the pro- 
duct, its good points and its bad, so that they can make an informed judgment. If you submit 
less than your absolute best review effort, then you will have failed in this responsibility. 

Responsibility to the Manufacturer/The manufacturer has submitted his product for review 
in order to obtain the publication of an impartial review which will, hopefully, result in in- 
creased sales of his product. He has the right to expect that all of the product's features will 
be fully explored, fully understood, and adequately described in the review. He also has the 
right to expect that all information which is essential for a potential purchaser will be includ- 
ed. He has a legal right to expect that the review will be unbiased and that the reviewer does 
not have any conflict of interest at any level that could effect his judgment and his review. 

Responsibility to MICRO. MICRO has not published the new releases and other manufac- 
turer generated promotional material which abounds in other magazines, since we felt that 
this material was, by its very nature, biased. The method we are using to keep our readers in- 
formed, the MICROScope reviews, is costing us time, money, and a lot of effort. In addition, 
MICRO is putting its reputation on the line. Since we are sponsoring these reviews, any 
review which is less than perfectly honest reflects poorly on us. 

This brief discussion of responsibilities is not intended to scare any legitimate reviewer 
away from the task. It is intended to make every reviewer consider his obligations and make 
certain that he feels that he can perform the reviewing task without reservation. 

This is how we expect the MICROScope review process to work. With our great reviewers, 
we know we will receive the best results. 



Missing MICRO Information? 

MICRO is devoted exclusively to the 6502. In 
addition, it is aimed at useful, reference type 
material, not just "fun and games". Each 
month MICRO publishes application notes, 
hardware and software tutorials, a continuing 
bibliography, software catalog, and so forth. 
Since MICRO contains lots of reference 
material and many useful program, most 
readers want to get the entire collection of 
MICRO. Since MICRO grew very rapidly, it 
quickly became impractical to reprint back 
issues for new subscribers. In order to make 
the older material available, collections of the 
reprints have been published. 

[A limited number of back issues are still 
available from number 7 to 18 and 20 to cur- 
rent. There are no 19's left.] 

The BEST of MICRO Volume 1 contains all of 
the significant material from the first six 
issues of MICRO, from October/November 
1977 through August/September 1978. This 
book form is 176 pages long, plus five 
removeable reference cards. The material is 
organized by microcomputer and almost 
every article is included. Only the ads and a 
few 'dated' articles have been omitted. [Now 
in third printing!] 
Surface . . . $7.00 Air Mail . . . $10.00 

The BEST of MICRO Volume 2 covers the se- 
cond six issues, from October/November 1978 
through May 1979. Organized by microcom- 
puter, this volume is 224 pages long. 

Surface. . $9.00 Air Mail. . $13.00 

The BEST of MICRO Volume 3, covering the 
twelve issues from June 1979 through May 
1980, will be over 400 pages long. It is 
scheduled for late summer 1980. The price is 
still to be determined. 

For a free copy of the Index for Volumes 1, 2, 
and 3, please send a self-addressed, stamped 
envelope to: 

BEST of MICRO, P.O. Box 6502, Chelmsford, 
MA 01824 
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HTOJV, STRATEGY, AND FAJVTA 

for the SERIOUS games player 

and his APPLE II 



Brain Games - 1 demands ingenuity. 

Two players bombard radioactive material with protons 
and electrons until it reaches critical mass and sets up a 
Nuclear Reaction. Dodgem requires you to outmaneuver 
another player to get your pieces across the board first. 
Dueling Digits and Parrot challenges your ability to 
replicate number and letter sequences. Tones lets you 
make music with your Apple (16K) CS-4004 $7.95. Strategy 
Games and Brain Games are on one disk (16K) CS-4503 
$14.95. 

Strategy Games - 1 keeps games players in suspense 

You and your opponent trail around the screen at a 
quickening pace attempting to trap each other in your 
Blockade. A 7 category quiz game will certify you as a 
Genius (or an errant knave!). Beginners will meet their 
master in Checkers. Skunk and UFO complete this classic 
collection (16K) CS-4003 $7.95 

Know Yourself through these valid self -tests. 

Find out how your life style effects your Life Expectancy 
or explore the effects of Alcohol on your behavior. Sex 
Role helps you to examine your behavior and attitudes in 
light of society's concept of sex roles. Psychotherapy 
compares your feelings, actions, and phobias to the 
population's norms and Computer Literacy tests your 
microcomputer savvy. A fun and instructional package 
(16K) CS-4301 $7.95. Know Yourself and CAI Programs 
are on one disk (16K) CS-4503 for $14.95 





You re in command in Space Games - 1 . 

Maneuver the TIE fighters into your blaster sights and 
zap them with your lasers to save the rebel base camp 
from annihilation in Star Wars. Rocket Pilot is an ad- 
vanced real time take off and landing game. High resolu- 
tion graphics, exploding saucers and sound effects add to 
the suspense as you repel the Saucer Invasion. Finally, a 
bonus graphics demonstration, Dynamic Bouncer (16K) 
CS-4001 $7.95. Space Games and Sports Games are on 
one disk (16K) CS-4501 for $14.95 



ACTION 



Sports Game's - 1 puts you in the Apple World Series 

Take the field in the Great American Computer Game. 

Mix up your pitches to keep the batter off balance. Move 
your fielders to snag the ball before he gets to first. Balls 
and strikes, double plays, force outs, and errors let you 
play with a realistic strategy. Also in the line up— Slalom, 
a championship downhill ski race, Torpedo Alley, and 
Darts (16K) CS-4002 $7.95. Space Games and Sports 
Games are on one disk (16K) CS-4501 for $14.95 

It's easy to order SENSATIONAL SOFTWARE for your Apple II. 

Send payment plus $1.00 shipping and handling in the U.S. ($2.00 foreign) to 
Creative Computing Software, P.O Box 789-M, Morristown. N.J 07960. N.J. residents 
add $1 00 sales tax. Visa, Master Charge and American Express orders may be called in toll 
free to 800-831-8112 (in N.J. 201-540-0445). . 



Complete Your MICRO Collection 

NOW is the best time to complete your MICRO 
collection — during our Summer Special! 

Order back issues from now until September 30, 1980 and receive our special 
price. Complete your MICRO collection at these low prices. 

Special prices on issue numbers 7 [Oct/Nov 1978] through 18 [Nov 1979]. 
Issues 7-12 Regularly $1.75 Surface Issues 13-18 Regularly $2.25 Surf ace 

Summer Special Price: $1.00 for any issue 7 — 18 in the U.S. 

$1.25 for any issue 7 — 18 foreign. 
All back issues will be shipped Surface. Air Mail service only at regular rates. 

Issues 20-24 available for $2.25, or check with your local dealer. Sorry, number 
19 [Dec 1979] is no longer available! 

Free Copy of MICRO 

Help spread the good word about MICRO — send a 
free copy to a friend during our Summer Special. 

During this period, you can share MICRO with a friend. Send in the address 
label from your MICRO, along with the name and address of a friend whom you 
think would enjoy receiving MICRO, and we will send him a free back issue. 
Back issue sent will be publisher's choice, and this free offer expires 
September 30, 1980. 



Regular Subscription Information 

One year's subscription - 12 issues. US: $15.00, All other countries: $18.00 for surface. Air Mail rates for 
Central America: $27.00, Europe/S. America: $33.00, All other countries: $39.00. 

Best of MICRO Voulme 1 (issues 1-6): $7.00 for Surface, $10.00 for Air Mail. Best of MICRO Volume 2 
(issues 7-12): $9.00 Surface, $13.00 Air Mail. All of MICRO Volume 2: $9.00 Surface, $13.00 Air Mail. 
All payments must be in US dollars. Please make checks payable to MICRO. Foreign payments in Interna- 
tional Money Order or cash. 

MICRO 

P. O. Box 6502 

Chelmsford, MA 01824 

(617)256-5515 
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The home computer you thought 
years away is here. 




C8PDF '2,895 

Ohio Scientific's lop of the line personal com- 
puter, the C8P DF. This system incorporates 
the most advanced technology now available 
in standard contigurations and add-on options. 
The C8P DF has full capabilities as a personal 
computer, a small business computer, a home 
monitoring security system and an advanced 
process controller. 
Personal Computer Features 
The C8P DF features ultra-fast program execu- 
tion. The standard model is twice as fast as 
other personal computers such as the Apple II 
and PET. The computer system is available 
with a GT option which nearly doubles the 
speed again, making it comparable to high end 
mini-computer systems. High speed execution 
makes elaborate video animation possible as 
well as other I/O functions which until now, 
have not been possible. The C8P DF features 
Ohio Scientific's 32 x 64 character display with 
graphics and gaming elements for an effective 
resolution of 256 x 512 points and up to 16 
colors. Other features for personal use include 
a programmable tone generator from 200 to 
20KHz and an 8 bit companding digital to 
analog converter for music and voice output, 
2-8 axis joystick interfaces, and 2-10 key pad 
interfaces. Hundreds of personal applications, 
games and educational software packages are 
currently available for use with the C8P DF. 
Business Applications 
The C8P DF utilizes full size 8" floppy disks 
and is compatible with Ohio Scientific's ad- 
vanced small business operating system, 
OS-65U and two types of information manage- 
ment systems, OS-MDMS and OS-DMS. 



The computer system comes standard with a 
high-speed printer Interface and a modem in- 
terface. It features a full 53-key ASCII 
keyboard as well as 2048 character display 
with upper and lower case for business and 
word processing applications. 

Home Control 

The C8P DF has the most advanced home 
monitoring and control capabilities ever 
offered in a computer system. It incorporates 
a real time clock and a unique FOREGROUND/ 
BACKGROUND operating system which allows 
the computer to function with normal BASIC 
programs at the same time it is monitoring 
external devices. The C8P DF comes standard 
with an AC remote control interface which 
allows it to control a wide range of AC appli- 
ances and lights remotely without wiring and 
an interface for home security systems which 
monitors fire, intrusion, car theft, water levels 
and freezer temperature, all without messy 
wiring. In addition, the C8P DF can accept 
Ohio Scientific's Votrax voice I/O board and/or 
Ohio Scientific's new universal telephone inter- 
face (UTI), The telephone interface connects 
the computer to any touch-tone or rotary dial 
telephone line. The computer system is able lo 
answer calls, initiate calls and communicate 
via touch-tone signals, voice outpul or 300 
baud modem signals. It can accept and 
decode touch-tone signals, 300 baud modem 
signals and record incoming voice messages. 
These features collectively give the C8P DF 
capabilities to monitor and control home func- 
tions with almost human-like capabilities. 
Process Controller 

The C8P DF incorporates a real time clock, 
FOREGROUND/BACKGROUND operation and 
16 parallel I/O lines. Additionally a universal 



accessory BUS connector is accessible at the 
back of the computer to plug in additional 48 
lines of parallel I/O and/or a complete analog 
signal I/O board with A/D and D/A and 
multiplexers. 

Clearly, the C8P DF beats all existing small 
computers in conventional specifications plus 
it has capabilities far beyond any other com- 
puter system on the market today. 
C8P DF is an 8-slot mainframe class computer 
with 32K static RAM, dual 8" floppies, and 
several open slots for expansion. 

C8P *950 

Or get started with a C8P with cassette inter- 
face, 8K BASIC-in-ROM which includes most 
of the features of the C8P DF except the real 
time clock, 16 parallel I/O lines, home security 
interface and accessory BUS. It comes with 
8K static RAM and Ohio Scientific's ultra-fast 
8K BASIC-in-ROM. II can be expanded to a 
C8P DF later. Base price $950. Virtually all the 
programs available on disk are also available 
for the C8P cassette system on audio 
cassette. 

Computers come wilh keyboards and floppies where specllled . 
Other equipment shown is optional. 

For literature and the name of your local' 
dealer, CALL 1-800-321-6850 TOLL FREE. 
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